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Foreword 



In the two and a half years since the Commodore 64 was first 
introduced, it's become the home computer of millions of peo- 
ple. And its popularity shows no sign of decreasing. COM- 
PUTE! Publications has supported the 64 from the time of its 
introduction at the Summer 1982 Consumer Electronics Show, 
extending that tradition with a wide variety of books dedicated 
to the 64. 

COMPUTE'S Third Book of Commodore 64 is now part of 
that tradition. With the same high-quality programs and con- 
cise writing that people have come to expect from COM- 
PUTE!, this book follows in the path of the best-selling First 
and Second Book of Commodore 64. Filled with articles and pro- 
grams from COMPUTE! magazine and COMPUTEI's Gazette, 
many enhanced or extensively revised, as well as several 
never before published, this book presents the best programs 
from a strong group. It wasn't always an easy choice; there are 
always more to choose from than can fit in one book. 

You'll find a variety of programs and articles here. Some, 
like "Screen-80" and "HiSprite," are sophisticated programs 
that allow you to display 80 columns on your monitor or con- 
trol all aspects of sprites. Others, such as "BASIC Style: Pro- 
gram Evolution" and "Programnung 64 Sound" are tutorials 
that show you how to write cleaner programs or how to get 
the most out of your 64's SID chip. Graphics and sound 
applications let you paint on a high-resolution screen, turn 
your 64 into an Atari-like graphics computer, and even 
manipulate sound parameters. Utilities enlarge your pro- 
grammer's toolkit with routines like "Crunch," "Machine Lan- 
guage Saver," "Autoload," and "One-Touch Keywords." And 
"Programming Without the Keyboard," COMPUTE!'s first 64 
programming utility designed for the physically handicapped, 
allows joystick-controlled BASIC programming. 

Games, always a strength of the Commodore 64, are not 
forgotten. "Mystery at Marple Manor" puts you in a house 
filled with potential suspects, possible murder weapons, and a 



trail that can lead to only one conclusion. "Supertank" sets 
you in a modern armored battle, and "Reversi" lets you dem- 
onstrate your strategic planning and execution skills. 

There are even programs that insure error-free typing of 
both BASIC and machine language programs. 

From new owners to experienced programmers, everyone 
who has a Commodore 64 will find that COMPUTEI's Third 
Book of Commodore 64 contains valuable information, tested 
programs, and clear explanations. 
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BASIC Style 

Program Evolution 

Jim Butterfield 

Sometimes you see programs that are so crisp and 
neat that you wonder how the programmer's 
mind can be so orderly. The statements come out 
in an elegant, incisive style. Every line does ex- 
actly the right thing. But can you learn to pro- 
gram like that? 



How does a programmer develop an elegant style? Why can't 
you write like that? Sometimes you can feel inferior after look- 
ing at such immaculate programming style. Yet the program 
you see is often a matter of evolution — rewriting and tid5dng 
up. Just as a story or a novel isn't usually published after only 
one draft, a computer program may go through an entire se- 
ries of revisions. 

I've been accused of writing "squeaky clean" programs. 
That's not the way they start. Like most other programmers' 
work, my murky first attempts get reworked and tightened up 
into their final version. In fact, programming style often isn't 
what you write (at least at first) — it's knowing what to look 
for when you clean up. Since showing is better than just 
describing, how about taking a look at the evolution of one of 
my programs? 

A Simple Lister 

I needed to do an almost trivial job: list a sequential file from 
disk to the printer, I had a minor extra feature to add: I 
wanted individual pages, so that the lines needed to be counted; 
I needed a title on each page; and at the end of the run, for the 
sake of neatness, I wanted the printer to eject the page. 

It wasn't a demanding task, but I'd like to show you how 
I went about it. Even a simple job like that can be revised and 
tightened up extensively. 



1 BASIC Programming 



(Note: If you want to use this program yourself, remem- 
ber that it's only for listing sequential files, not program files.) 

Here's my first program: I'll talk my way through the 
listing. 

100 OPEN 4,3 

Open file number four to the screen. Why? So I can send the 
program's output to the screen and see that it's working right. 
After the program looks good, I'll change the above line to 
OPEN 4,4 

105 OPEN 1,8,3, "CONTROL" 

CONTROL is my input file to be listed. 

110 REM START OF PAGE 

120 FOR J=l TO 2:PRINT#4:L=L+1:NEXT J 

130 PRINT#4,"{5 SPACES }TITLE{ 3 SPACES }" :L=L+1 

140 PRINT#4 :L=L+1 

This prints the page title. I know the program will come back 
here for each new page, so I'm placing a REM statement to 
mark the place. I make sure that the program adds 1 to the 
line count, L, each time a line is printed. 

150 INPUT#1,A$:SW=ST 
170 PRINT#4,A$:L=L+1 

Here's where I input from disk and output (to the screen first, 
later to the printer). I have the program save the value of ST 
(the status variable) so that later it can check to see if this is 
the last line from the file. ST will be changed by the PRINT* 
command, so its input value is saved in variable SW. 

180 IF L<62 GOTO 250 

190 IF L=66 THEN L=0:GOTO 250 

200 PRINT«4:L=:L+1:60T0 190 

If the program has printed the maximum number of lines de- 
sired, I want it to eject the paper by printing until the line count, 
L, equals 66. Since each page has 66 lines, if L is greater than 
that, the next page has started and L can be set back to zero. 

250 IF SWO0 GOTO 300 
260 IF L=0 GOTO 110 
270 GOTO 150 

If the program finds the end of the input file (SWoO), it will go 
to line 300 and wind things up. Otherwise, I want it to go back. 
Lines 260 and 270 contain a cute touch — perhaps too cute 
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for some tastes. Variable L can be equal to zero only if a page 
has just been ejected. If so, I want the routine to go back to 
110 and print a new title. If not, I want it to get another line 
from the input file starting at line 150. 

300 IF LO0 GOTO 190 

Here's a supercute trick. I pondered using this for a while, 
since it's almost too clever; that sort of thing can trip up your 
logic. Here's what I was thinking of: If the program's finished, 
but the paper hasn't been ejected, go back to line 190 and eject 
the paper. The program will branch back here again, but then 
L will be zero and everything can be wrapped up by closing 
the files with the next two lines. 

310 CLOSE 1 
320 CLOSE 4 

That's it. It's really rather messy. It works, and for a tem- 
porary job that's all we would need. 

But it doesn't feel right. The code feels sloppy; it seems to 
jump around, and I don't get a feeling of smoothness in the 
program. If that feeling comes to you, you're telling yourself 
it's time to pick at the program. I listened to that instinct and 
began revising. 

First Revision 

The first awkward spot is around lines 190 and 200. The rou- 
tine to eject the paper works but looks clumsy. Besides, it's 
called twice (once when the paper's at 62 lines, and again at 
the end of the file). 

I have other ideas about this part of the program, too. It's 
a unit to do a particular job. I think it would be better to move 
it to a separate subroutine where it can stand out as an identi- 
fiable action. Sometimes I even create a subroutine out of 
some lines in the middle of the program and then move it 
back later; it helps me identify the modules that make up the 
program. Let's move the paper ejecting routine to a subroutine 
at line 500, clean up the program a bit, and see what we get. 
It might look something like this: 

100 OPEN 4,3 

105 OPEN 1,8,3, "CONTROL" 
110 REM START OF PAGE 

120 FOR J=l TO 2:PRINT#4 :L=L+1 :NEXT J 

130 PRINT#4,"{5 SPACES) TITLE {3 SPACES }": L=L+1 
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140 PRINT#4:L=L+1 
150 INPUT#1,A$:SW=ST 
170 PRINT#4,A$:L=L+1 
180 IF L<62 GOTO 250 
190 GOSUB 500:GOTO 250 
250 IF SWO0 GOTO 300 
260 IF L=0 GOTO 110 
270 GOTO 150 
300 IF L<>0 GOTO 190 
310 CLOSE 1 
320 CLOSE 4 
330 END 

500 FOR J=L TO 66:PRINT#4:NEXT J 
510 L=0: RETURN 

You can see that the GOTO 250 in line 190 is redundant since 
the program will go there anyway. But we have other things to 
do. We're still trimming the program and have a ways to go yet. 

Digging Deeper 

Around lines 250 to 270, the program jumps around a lot. It 
has one jump forward to 300 and two jumps back to 110 and 
150. The logic seems scattered. 

I have a thing about loops: I like to see them neatly 
nested, with short jumps entirely within longer jumps. It 
might even be summarized as a rule of thumb: Where pos- 
sible, make short jumps as short as possible. 

Using this rule, I want to get the loop which returns to 
150 into logical order. That's first. Then I'll work on the longer 
loop to 110. Finally, I'll fb< the forward branch to 300. We'll 
need to expand the logic using an AND operator, but that's 
not too hard. 

As the routine is written, certain logical things start to fall 
together. For example, we don't have to GOTO forward to line 
300. When we're finished writing the two loops, the program 
will fall into 300 naturally. (Naturally seems to be a key word in 
how programs seem to come together as you tighten them up.) 

We can also tighten up the page-eject conditions. If we 
write line 180 correctly, there'll be no need to go back to get a 
page ejection. One option would be to call the subroutine at 
500 twice. But if we think of what our objective really is at line 
180, we can do it all correctly the first time through. Inverting 
the logic and adding an OR connective does the trick nicely. 

Look at how far the original program has come: 
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100 OPEN 4,4 

105 OPEN 1,8,3, "CONTROL" 
110 REM START OF PAGE 

120 FOR J=l TO 2:PRINT#4:L=L+1:NEXT J 

130 PRINT#4,"{5 SPACES} TITLE {3 SPACES }": L=L+1 

140 PRINT#4:L=L+1 

150 INPUT#1,A$:SW=ST 

170 PRINT#4,A$ :L=L+1 

180 IF L>61 OR SWO0 THEN GOSUB 500 

250 IF SW=0 AND L>0 GOTO 150 

260 IF SW=0 GOTO 110 

310 CLOSE 1 

320 CLOSE 4 

330 END 

500 FOR J=L TO 66:PRINT#4:NEXT J 
510 L=0: RETURN 

This is pleasing, but we can do even more. The repeated 
SW=0 test in lines 250 and 260 still irks me a little: It seems 
clumsy. The whole business is tied up in whether a title 
should be printed. Is there a better way? Could the test of L>0 
be somehow shuttled to the top of the loop instead of sitting 
at the bottom? 

The Header Module 

While we're thinking about it, that whole business of printing 
a header is really a module — we must do the whole thing, title 
and all, or nothing. If we move it out to a subroutine, we 
might see the logic flow more clearly. Let's do it and work on 
the logic flow. We'd end up with this: 

100 OPEN 4,3 

105 OPEN 1,8,3, "CONTROL " 
110 IF L=0 THEN GOSUB 600 
150 INPUT* 1,A$:SW=ST 
170 PRINT#4,A$:L=L+1 

180 IF L>61 OR SWO0 THEN GOSUB 500 
260 IF SW=0 GOTO 110 
310 CLOSE 1 
320 CLOSE 4 
330 END 

500 FOR J=L TO 66: PRINT #4: NEXT J 
510 L=0: RETURN 

600 FOR J=l TO 2:PRINT#4:L=L+1:NEXT J 

610 PRINT#4,"{5 SPACES} TITLE {3 SPACES }": L=L+1 

620 PRINT#4:L=L+1 

630 RETURN 
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Look at that main section from lines 100 to 330. It now seems 
tight and concise, like a finely constructed poem. That's not a 
bad simile, for just as every word should count for something 
in a poem, so should every line in a program work towards 
the final result. 

Both subroutines — at lines 500 and 600 — are called only 
once. If it seemed important, we could put them back into the 
main program stream. But I'm happy to see them as clearly 
isolated modules. At this stage I would add comments (for in- 
stance, REM PAGE EJECT at line 499 and REM PAGE TITLE 
at line 599) to make the program even neater. 

Moral 

First, what you see published is not always the first idea that 
popped into the author's head. The programmer is not always 
smarter than you. Time and thought have been taken to 
groom the program into its final shape. When many people 
are going to read your code, you like to take a few extra pains 
with its appearance. 

Second, don't be afraid to revise your programs, even if 
they work correctly. Sure, a one-shot program might not war- 
rant picking over; use it and forget it. But sometimes, the ex- 
ercise can reveal, almost accidentally, powerful and effective 
programming methods. 

Third, style isn't an inborn talent that some people have 
and others don't. You learn it as you go. Some things you'll 
discover for yourself, and others you'll pick up by looking at 
other people's programs. 

The odd thing is that we instinctively recognize better 
writing when we have written it. It's the same with program- 
ming. You may not know exactly why, but you often feel good 
about a certain program. Usually, it's because it has style. 
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^ Variable Storage 

n A Beginner's Tour of BASIC 
RAM 

' ' Pete Marikle 

You can simplify the search for program hugs if 
you take a short tour through BASIC RAM and 
use this subroutine that displays variable values. 



Normally, you don't need to know what happens to your pro- 
gram when you type RUN. The BASIC interpreter takes over, 
leaving you free to use the computer to figure your income 
tax, write a letter, or save the galaxy. 

When your program crashes, though, or gives you an in- 
correct result, you have to switch hats. You're not just a com- 
puter user then; you have to be a programmer who can locate 
the bug and fix it. Debugging is easier if you can look at the 
values of your variables and arrays while the program is run- 
ning, to insure that loops are being completed and data is put 
in the right place at the right time. 

Programs 1 and 2, listed at the end of this article, are ex- 
panded and condensed versions of a subroutine that displays 
the current values of all program variables. By inserting STOP 
statements in any line where you suspect a problem, you can 

— . freeze the action and GOTO the subroutine to check your 

/ I logic, statement by statement. 

A Quick Tour of RAM 

I 1 Before we examine the subroutine, let's take a short sightsee- 
ing tour through BASIC RAM to see where your Commodore 

_ 64 stores programs and variables, how it tells a string from an 

; 1 integer variable, and how you might use less memory. You 
don't have to take this descriptive tour to use the subroutine, 

_ but it will give you a better idea of how the subroutine works. 

! I First, type in this short BASIC program. It lets you peek 

into the computer's memory. 
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10 S=256 SPRINT" {CLR}START ADDRESS" sINPUTZ 

20 S$= "******** **************":T$=" -— --- 

_ II 

30 FORX=ZTO(PEEK(55)+S*PEEK(56) ) :PRINTCHR$ ( 144)X,P 
EEK(X)SPC(2)CHR$(PEEK(X)) 

31 Y=X+1 

35 U=PEEK(45)+S*PEEK(46) s V=PEEK( 47 ) +S*PEEK( 48 ) sW=P 

EEK(49)+S*PEEK(50) 
40 IPY=UORY=VORY=WTHEN PRINTS$ 

45 IFX>=UANDY<VTHENT=T+liG0T047 

46 T=0 

47 IFT THEN IFT/7-INT(T/7) < .01THENPRINTT$ 
50 WAIT 197, 32: NEXT 

60 REM END OF PROGRAM APPROACHING 

(If you want to use this program again, you should save it to 
tape or disk.) 

Now enter these two lines in direct mode (without using 
line numbers): 

AB = 12.34:CD = - 12.34: AB$ = "HELLO": AB% = 1983: AB(1) = 1 
11:CD(1)= -111:AB%(1)=1024 

AB$(1)="BYE" 

Hit RETURN after each line, and enter some more: 

DIMCD$(3,5,5):CD$(1,0,0) = "SEE":CD$(2,0,0) = "YOU":CD$(l, 
1,1)="LATER" 

Hit RETURN again, and your computer will have at least one 
example of every type of variable stored in RAM. Now type 
GOTO 10 and press RETURN. Do not type RUN (it resets all 
variables). You'll see a prompt at the top of the screen; re- 
spond with 2250. 

The Program Looks at Itself 

The space bar is your one-touch control. Every time you press 
it, a line of infomation appears in black on the screen. Hold it 
down until the screen is nearly full, then sit back and take a 
look. You're looking at the middle of the tour program; the 
memory addresses are on the left, memory contents in the 
middle, and some interesting characters on the right. 

Some of those characters are mearungless, because a 
CHR$ interpretation of the contents of a memory location is 
invalid and out of context if the location contains a keyword, 
line link, line number, and so on. But many of the characters 
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are valid, recognizable translations of what you put into the 
program. These are the ones we'll look at. 

Use the space bar to move through another hundred or so 
bytes, to address 2377. You're looking for the end of the 
BASIC program, represented by three consecutive zeros in the 
center column beside addresses 2377-2379. It's not hard to 
find with the REM billboard (created by line 60) and neat bor- 
ders in place. Now look at the first address after the three ze- 
ros. It should be 2380, the address produced by 
PEEK(45)+256*PEEK(46). Line 35 in the above routine sets U 
equal to that address. Hold the space bar down until 2380 is 
near the top of the screen. 

Scanning Variable Storage 

You 're now in the area where strings and variables are stored. 
Everything in this area is in seven-byte clusters, which have 
been neatly separated with dashes for easy viewing. Find the 
characters A and B, followed by five more bytes (the cluster is 
in addresses 2380-2386). This first seven-byte cluster is the 
variable AB. The first two bytes are the variable name. The 
next five bytes contain the value you gave AB, but in floating- 
point arithmetic notation. Don't worry about how the math 
works. The decimal value is neatly tucked away in those five 
bytes. 

Note that the next variable, CD (addresses 2387-2393), 
has a similar structure. Remember that you put the same num- 
bers in CD as you did in AB, but you included a minus sign to 
make it negative. Take a close look at the five bytes following 
CD, and you'll see that the values are almost identical to those 
in the bytes following AB. The only difference is that the 
fourth byte's value is 128 greater than the corresponding byte 
in AB. You can check this for yourself by subtracting 128 from 
the byte in CD; you should get the value in the corresponding 
byte in AB. The high-order bit (bit 7) in that particular byte is 
used as a sign indicator: for positive numbers and 1 for neg- 
ative. Since that bit is on (set at 1) for variable CD, the byte's 
decimal value is 128 (2') higher. Your computer ignores that 
bit in reconstructing the value of CD, but uses the bit when 
the time comes to determine the sign of the number. 

String Variables 

Press the space bar and look at the next cluster, representing 
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the string variable AB$. The A is clear enough, but where did 
the B go? Here's the secret: The second character of a string 
variable name is stored after adding 128 to the normal CHR$ 
value for that character. It's the high-order bit trick again. 

By checking to see if this high-order bit is 1 or 0, your 
computer can tell whether this is a string or floating-point 
variable. Memory address 2395 has a value of 194 — subtract 
128 from it and you have 66, which just happens to be the 
CHR$ value for the letter B in AB$. Your computer now 
knows that the next byte (which has a value of 5 in the exam- 
ple) is the length of AB$ and the next two bytes give it the ad- 
dress where it can find the actual characters you designated 
for the string. The address is in standard low byte/high byte 
order (LB+256*HB=decimal address). The computer will start 
at that address, select a number of characters equal to the 
value (5) in the length byte, and then go on to do whatever 
you asked it to do with the string. 

The final two bytes of the duster both hold 0; they're put 
in to fill up the seven bytes. 

That address for the string character can point to one of 
two very different areas of memory. If the string is assigned in 
the direct mode, the string characters themselves are stored at 
the top of free BASIC RAM. If the string is assigned by the 
program, the address points to the place in the program where 
the string values are assigned to the variable name. Since the 
characters must be stored as part of the program anyway, your 
computer doesn't waste RAM by repeating the characters in 
the variable storage area. 

An Unreadable Name 

Let's continue the tour. In the next cluster, notice that the vari- 
able name is unreadable. The symbols are a spade and a verti- 
cal bar, displayed in addresses 2401 and 2402 respectively. 
The values in those two bytes are 193 and 194. Subtract 128 
from each and you'll find the CHR$ values for the letters A 
and B of the integer variable AB%. 

When both characters in the variable name are greater 
than 127, your computer knows this is an integer variable, 
that only the next two bytes need to be looked at to obtain its 
value, and that the last three bytes of the cluster will be filled 
with zeros. As you can see, this cluster is in that format. 

Those value bytes contain a signed binary number, a dif- 
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ferent form than you saw with the floating-point variables. 
Again, don't worry about the details of the math. The more 
compact method of storing integer variables doesn't do much 
for you until you start using them in arrays. Integer arrays can 
cut your memory consumption considerably (two bytes versus 
five per entry). 

As long as we're talking about arrays, let's look at them in 
more detail. Hold down the space bar to pass by several clus- 
ters where the variables in this tour program are stored. 
You're approaching the address found by 
PEEK(47)+256*PEEK(48). That's the beginning of array stor- 
age. You'll know you're there when you see the borderline 
and the A and B characters in the right column. The memory 
address right beneath the border should be 2478. 

How Arrays Are Stored 

There are three kinds of arrays, paralleling the three normal 
variable types: floating-point arrays, integer arrays, and string 
arrays. Each can be multidimensional, but we'll cover that last. 
Your 64 allows you to use arrays with up to 11 elements 
(numbers 0-10) without a DIMension statement, but it does 
not reserve space for the array until you assign a value to one 
of the array elements. As soon as you do, it sets up an 11- 
element array, even if you used only one or two elements. Of 
course, you can dimension (with a DIM statement) for more or 
fewer elements if you wish. (For more information on arrays, 
take a look at "How to Use Arrays" in COMPUTEI's Second 
Book of Commodore 64.) 

Each one-dimensional array begins with a seven-byte 
definition cluster followed by the 11 -element clusters (or more 
or less according to the DIM statement). 

The seven-byte cluster holds the array name in the first 
two bytes, following the same general rules you saw for sim- 
ple variables, depending on the t)rpe of array. The next two 
bytes contain a link address to the next array set. The fifth 
byte tells you (and your computer) the number of dimensions 
in this array. The sixth and seventh bytes will show the total 
number of elements in the array set (11 for our unDIMed 
examples). These two bytes store the total in reverse high 
byte/low byte order. 

The element clusters that follow the definition cluster will 
be five bytes long for floating-point arrays, two bytes long for 
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integer arrays, or three bytes long for string arrays. These clus- 
ters contain the same kind of information held in the 
corresponding simple variables, but without the trailing zeros 
or repeated label bytes needed in variable storage. 

Unused Elements Contain Zeros 

Hold down the space bar until the first array, AB, nearly fills 
the screen. See the seven-byte cluster in memory addresses 
2478-2484? It's followed by five zeros only because AB(0), the 
first element of this array, has a zero value. The next five 
bytes represent the value you gave to AB(1). The following 
sets of zeros represent the remairiing unused elements through 
AB(IO). Use the space bar to look at the CD array, then con- 
tinue to the AB% integer array. 

Both begin with a seven-byte definition cluster, followed 
this time by 11 -element clusters of two bytes each. The lesson 
in saving memory with integer arrays is dramatic. 

Next, note the seven-byte cluster for the AB$ array and its 
11 three-b)M:e clusters, each containing the string length byte 
and the address of the string characters. 

The Three-Dimensional Array 

If you move even further into the tour, you'll reach the sample 
multidimensional array. Things get a bit tricky here. The defi- 
nition cluster will now be more than seven bytes long. Add 
two bytes for each extra dimension. Remember, you can set up 
two, three, four, or more dimensions of any size if you have 
the memory capacity to handle them. The number of dimen- 
sions for each array set is held in the fifth byte (address 2675) 
of the definition cluster. The very next two bytes hold the 
number of elements in the nth dimension (n= number of 
dimensions); the next two contain the number of elements in 
the (n— l)th dimension, and so on until finally the first dimen- 
sion is structured. You should see a and a 6 in 2676 and 
2677, another pair in 2678 and 2679, and a and a 4 in ad- 
dresses 2680 and 2681. The 6, 6, and 4 represent, in reverse 
order, the fact that you dimensioned CD$ as 3, 5, 5 (remember 
that arrays always start with 0). 

Immediately following the definition cluster, the array ele- 
ments will troop by in orderly formation. In this example, 
where you DIMed CD$(3,5,5), the order of the three-byte clus- 
ters will be: CD$(0,0,0), CD$(1,0,0)...CD$(3,0,0), CD$(0,1,0), 
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CD$(1,1,0)...CD$(3,1,0), and so on until CD$(3,5,5) is reached. 

As you pass through this area, you'll see that the clusters 
for CD$(1,0,0) and CD$(2,0,0) are occupied. If you count, 
you'll find that the position for CD$(1,1,1) is also occupied, as 
you directed. As with any string, the characters themselves are 
stored elsewhere. 

If you race through the rest of this array, you'll cross the 
PEEK(49)+256*PEEK(50) border into the area of unused 
RAM. Don't be surprised if you recognize some of it. You may 
find remnants from other programs which have been NEWed, 
or even CLRed variables. 

To end the tour, just hold down the RUN/STOP key and 
hit the space bar. 

The Variable Dump Utility 

Now let's try out the promised subroutine. Because it takes all 
the values stored in a section of memory and sends them to 
an output device, our subroutine is called a dump utility. Type 
NEW to get rid of the tour program, type in Program 1, and 
save it to tape or disk. The dump utility has high line numbers 
because it's designed as an easy add-on to existing programs. 

Type in a few sample variables in direct mode. You can 
enter the samples you used for the tour if you like. Again, do 
not type RUN; enter GOTO 44444 and press RETURN. Your 
variables should be displayed; the program won't show the ar- 
rays until you press the space bar. Note that the dump utility 
doesn't list the contents of multidimensional arrays. It's not 
hard to do, just time-consuming. The routine will simply tell 
you which multidimensional arrays have been implemented 
and what their dimensions and element sizes are. 

Pointer Settings Affect the Utility 

Now CLR your variables, enter this new temporary program 
step, and run the program again: 

10 A$="HELL0":A=1983:AB${2)="HELL0 AGAIN" 

Not much happens, because it ends at line 44443, the sub- 
routine protector. Type GOTO 44444 and hit RETURN to 
view your variables as before. Now for a surprise — when you 
type GOTO 44444 and hit RETURN one more time, you'll see 
a display of the variables used in the dump utility. 
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This happens because, on the first pass through the rou- j i 

tine, line 44444 reads the pointers before they are changed to i 1 

make room for the routine's own internal variables. On the 

second pass, the new pointer values include the storage areas , i 

for the new variables. If you don't ever want to see the in- I 1 

temal variables, just modify line 44543 to read: 

IF PEEK(ZZ) = 90 THEN RETURN j I 

(_J 

Tailor the Utility for Your Needs 

You can customize the routine to fit your needs. For example, 
if you don't need the array and integer variable features, just 
delete lines 44465, 44525, and everything from 44700 on. 
That'll leave you with a much trimmer 800-byte package that 
will still dump all normal string and floating-point variables. If 
you delete one of the simple variable subroutines, though, you 
should also delete the corresponding array variable type. 
Eliminate REMs and spaces and you'll end up with a tidy util- 
ity well under 600 bytes that'll still fill most needs. Program 2 
is this condensed version. 

To use your dump utility as a debugging tool, simply in- 
sert STOP statements at desired points in your program, type 
GOTO 44444, analyze variable values, and then type CONT 
to continue to the next break. Add the appropriate printer 
commands, and the program will even dump to the printer. 



Program 1. Variable Utility, Expanded Version 

For mistake-proof program entry, be sure to tise 'The Automatic Proofreader," Appendix C, 
with the next two programs. 

44440 REM{3 SP aces} dump. . . :rem 164 

44441 REM***START WITH GOTO 44444 trem 106 

44443 END: REM PROTECT SUBROUTINE :rem 41 

44444 ZB=PEEK(47)+256*PEEK(48)-7:ZA=PEEK(45)+256*P 
EEK(46) :rein 185 

44450 PRINT "STRINGS &{2 SPACES}VARIABLES: " :PRINT"* 
********************" :rem 114 

44460 FOR ZZ=ZA TO ZB STEP 7 : rem 39 

44465 IF PEEK(ZZ)>127 THEN GOSUB 44710 :GOTO44520 :R 

EM INT VAR :rem 171 

44470 IF PEEK(ZZ+1) <128 THEN GOSUB 44543:GOTO 4452 

0:REM PP VAR irem 177 
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44475 REM*****STRING**************VARIABLE :rem 39 
44480 GOSUB44485:GOTO44520 trem 255 

44485 PRINTCHR$ ( 144 ) CHR$ ( PEEK ( ZZ ) ) CHR$ ( PEEK { ZZ+1 ) - 

128)CHR$(36)CHR$(61) ; : rem 76 

44490 ZY=PEEK(ZZ+3)+256*PEEK(ZZ+4) :ZX=PEEK(ZZ+2) :R 

EM STRINGADDRESS AND LENGTH : rem 56 

44495 IF ZY=0 THEN 44510 irem 230 

44500 FOR Z0=1TOZX:PRINTCHR$(PEEK(ZY)); :Zy=ZY+l:NE 

XTZ0 :rem 234 

44510 PRINT: RETURN : rem 165 

44520 NEXTZZ :rem 242 

44525 GOSUB 44805: REM DO ARRAYS NOW trem 

44530 PRINT :PRINTCHR$( 144 )".... ALL DONE":END 

trem 75 

44540 REM***FLOAT PT************VARIABLE :rem 187 
44543 IFPEEK(ZZ)=90 AND( PEEK( ZZ+1)=65 OR PEEK(ZZ+1 

) =66) THEN RETURN trem 148 

44545 PRINTCHR$ ( 144 ) CHR$ ( PEEK ( ZZ ) ) CHR$ ( PEEK ( ZZ+1 ) ) 

CHR$(61); trem 198 

44550 Zl=2 t ( PEEK (ZZ+2) -129) trem 251 

44560 Z2=128:Z3=256tZ4=l trem 62 

44570 Z5=PEEK(ZZ+3) t IP Z5>=128 THEN Z5=Z5-128 tZ4= 

-1 trem 123 

44575 J=PEEK(ZZ+4) tK=PEEK(ZZ+5) tL=PEEK( ZZ+6 ) 

trem 179 

44580 Z9=Zl+Z5*Zl/Z2+J*Zl/Z2/Z3+K*Zl/Z2/Z3t2+L*Zl/ 
Z2/Z3t3 trem 145 

44590 PRINTZ9*Z4 trem 222 

44600 RETURN trem 222 

44700 REM*** INTEGER****** *********VARIABLE trem 43 
447 10 PRINTCHR$ ( 144 ) CHR$ ( PEEK ( ZZ ) -1 28 ) CHR$ ( PEEK ( ZZ 
+1)-128)CHR$(37)CHR$(61) ; trem 12 

44720 Z4=l:Z7=PEEK(ZZ+2):Z8=PEEK(ZZ+3) trem 29 

44730 IF Z7 >127THENZ7=255-Z7:Z8=256-Z8tZ4= -1 

trem 25 

44740 Z9=Z7*256+Z8tREMNOTE REVERSE HIBYTE-LOBYTE S 
EQUENCE trem 114 

44750 PRINTZ9*Z4 trem 220 

44760 RETURN trem 229 

44800 REM*** ARRAY***************VARIABLEStrem 240 

44805 IPZQ=0THENZA=0 1 GOSUB44550 1 ZA%=0 tGOSUB44720 1 Z 
R=2tZQ=2tZX=2tZY=2tZ0=2 trem 84 

44806 REM ABOVE DUMMIES NEEDED TO STABILIZE 

(3 SPACES} POINTER TO ARRAYS trem 240 

44810 ZZ=PEEK(47)+256*PEEK(48) tIFZZ=PEEK(49)+256*P 

EEK(50)THEN RETURN trem 32 

44815 PRINT "SPACEBAR WHEN READY{3 SPACES}P0R ARRAY 

S"fWAIT197,32 trem 25 

44820 IF PEEK(ZZ+4) <>lTHENGOSUB45110tGOTO44820tREM 
MULTI-D ARRAY trem 125 
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44825 IF PEEK(ZZ)>127 THEN GOSUB 44900 :GOTO44820 :R 
EM INT ARRAY : rem 69 

44828 IF PEEK ( ZZ+1 )> 127 THEN GOSUB 45010 :GOTO44820 
;REM STRING ARRAY : rem 137 

44829 REM*****FLdAT FT ************ARRAY :rem 82 

44830 ZQ=ZZ:ZZ=ZZ+7 : rem 224 
44840 FOR ZR=0 TO PEEK ( ZQ+6 ) +256*PEEK { ZQ+5 ) -1 : REM* 

*DIM :rem 70 

44850 PRINTCHR$ ( 144 )CHR$( PEEK ( ZQ ) )CHR$(PEEK{ZQ+1) ) 

CHR$(40)ZRCHR$(41)CHR$(61) ; : rem 204 

44860 ZZ=ZZ-2:GOSUB44550:ZZ=ZZ+2 : rem 2 

44870 ZZ=ZZ+5 :rem 12 

44880 NEXTZR:IFZZ=PEEK(49)+256*PEEK(50)THEN RETURN 

:rem 108 

44890 GOTO44820 : rem 68 

44900 REM****INTEGER************ARRAYS : rem 101 

44910 ZQ=ZZ:ZZ=ZZ+7 : rem 223 

44920 FOR ZR=0 TO PEEK(ZQ+6)+256*PEEK(ZQ+5)-l :REM* 

*DIM :rem 69 

44930 PRINTCHR$ ( 144 ) CHR$ ( PEEK ( ZQ ) -1 28 ) CHR$ ( PEEK ( ZQ 

+1)-128)CHR$(37)CHR$(40) ; : rem 251 

44940 PRINTZRCHR$ (41 )CHR$ (61 ) ; : rem 233 

44950 ZZ=ZZ-2:GOSUB44720:ZZ=ZZ+2 : rem 1 

44960 ZZ=ZZ+2 : rem 9 

44970 NEXTZR:IFZZ=PEEK(49)+256*PEEK(50)THEN GOTO 4 

4530 :rem 197 

44980 RETURN :rem 233 

45000 REM****STRING*************ARRAYS : rem 80 

45010 ZQ=ZZ:ZZ=ZZ+7 s rem 215 

45020 FOR ZR=0 TO PEEK(ZQ+6)+256*PEEK(ZQ+5)-l :REM* 

*DIM :rem 61 

45030 PRINTCHR? ( 144 ) CHR$ ( PEEK ( ZQ ) ) CHR$ ( PEEK( ZQ+1 ) - 

128)CHR$(36)CHR$(40) ; :rem42 
45040 PRINTZRCHR$(41)CHR${61) ; :rem 225 

45050 ZZ=ZZ-2:GOSUB44490:ZZ=ZZ+2 :rem 253 

45060 ZZ=ZZ+3 :rem 2 

45070 NEXTZR:IFZZ=PEEK(49)+256*PEEK(50)THEN GOTO 4 

4530 :rem 189 

45080 RETURN :rem 225 

45100 REM**MULTI-D****************ARRAYS : rem 160 
45110 ZX=2 : ZY=2 : PRINTCHR$ ( 43 ) PEEK( ZZ+4 ) "DIMENSIONA 

LARRAY : " : PRINTTAB ( 5 ) ; : rem 16 

45120 IP PEEK(ZZ)<127THENPRINTCHR$(PEEK(ZZ)); :GOTO 

45140 :rem 111 

45130 PRINTCHR$(PEEK(ZZ)-128) ; :ZX=1 : rem 99 

45140 IFPEEK(ZZ+1)=0THEN45170 : rem 176 

45145 IFPEEK(ZZ+1)=128THEN ZY=1 :GOTO45170 : rem 180 
45150 IF PEEK(ZZ+1) <127THENPRINTCHR$(PEEK(ZZ+1) ) ; : 

GOTO45170 :rem 45 

45160 PRINTCHR$ ( PEEK ( ZZ+1 )-l 28) ; :ZY=1 : rem 195 
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45170 IF ZX=1 AND ZY=1THENPRINT"%" ; :GOTO45190 

:rem 122 

IF ZY=1 THENPRINT"?" ; : rem 17 

PRINTCHR$(40) ; :rem 129 

Z9=PEEK(ZZ+4) :rem 84 

F0RZ8=Z9T01STEP-1 :Z7=PEEK(ZZ+4+2*Z8)+(PEEK(Z 



45180 
45190 
45200 
45210 



Z+4+2*Z8-l) )*256-l :rem 254 

45220 PRINTZ7; :rem 86 

45230 IFZ8=1THENPRINTCHR?(41) :GOTO45250 : rem 115 

45240 PRINTCHR$(44) ; :NEXTZ8 :rem 140 

45250 PRIWT :rem 141 

45260 ZZ=ZZ+PEEK(ZZ+2)+PEEK(ZZ+3)*256:IF ZZ=PEEK(4 

9)+256*PEEK(50)THEN44530 : rem 107 

45270 RETURN :rem 226 



Program 2. Variable Utility, Condensed Version 

44443 END: REM MINIDUMP FPVAR & $ :rem 36 

44444 ZB=PEEK(47)+256*PEEK(48)-7:ZA=PEEK(45)+256*P 
EEK(46) :rem 185 

44460 F0RZZ=ZAT0ZBSTEP7 : rem 39 

44470 IFPEEK(ZZ+1) <128THENGOSUB44543:GOTO44520 

: rem 20 

44480 GOSUB44485 :GOTO44520 : rem 255 

44485 PRINTCHR$ ( 144 ) CHR$ ( PEEK ( ZZ ) ) CHR$ ( PEEK ( ZZ+1 ) - 
128)CHR$(36)CHR$(61) ; : rem 76 

44490 ZY=PEEK(ZZ+3)+256*PEEK(ZZ+4) :ZX=PEEK(ZZ+2) 

: rem 168 

44495 IFZY=0THEN44510 : rem 230 

44500 FOR Z0^1TOZX:PRINTCHR$(PEEK(ZY) ) ; :ZY=ZY+1:NE 

XTZ0 :rem 234 

44510 PRINT: RETURN :rem 165 

44520 NEXTZZ :rem 242 

44530 END : rem 215 

44543 IFPEEK(ZZ)=90THENRETURN : rem 114 

44545 PRINTCHR$(144)CHR$(PEEK(ZZ) )CHR$(PEEK{ZZ+1) ) 

CHR$(61); :rem 198 

44550 Zl=2t{PEEK(ZZ+2)-129) : rem 251 

44560 Z2=128:Z3=256:Z4=1 : rem 62 

44570 Z5=PEEK(ZZ+3) :IFZ5>=128THENZ5=Z5-1 28:Z4=-1 

:rem 123 

44575 J=PEEK(ZZ+4) :K=PEEK(ZZ+5 ) :L=PEEK{ZZ+6) 

:rem 179 

44580 Z9=Zl+Z5*Zl/Z2+J*Zl/Z2/Z3+K*Zl/Z2/Z3f2+L*Zl/ 
Z2/Z3t3 srem 145 

44590 PRINTZ9*Z4 srem 222 

44600 RETURN srem 222 
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Making More 
Readable Listings u 

Brent Dubach I , 

\ i 

Have you ever tried to find a key subroutine or 
loop in a long BASIC listing? If you have, you 
know how tedious it can he. This tutorial dem- 
onstrates some very sneaky BASIC editing tech' 
niques that you can use for more readable listings. 



A few carefully chosen variable names can help make the dif- 
ference between a readable program and an unintelligible 
mess. But BASIC does not make these choices easy. Did you 
ever want to use a BASIC keyword like TO or FN within a 
variable name, such as LET TOP =10 or PRINT FN$? 

Commodore BASIC won't allow it. But by fooling a cou- 
ple of BASIC routines, you can use these illegal variable 
names and do even more to improve the appearance of your 
listings. Let's see how to use this technique and then consider 
what makes it work. 



Illegal Variable Names 

The key is to use graphics characters where they normally 
don't belong. You're probably used to seeing a graphics 
character as the last character in the abbreviation of a BASIC 

keyword. For example, if you type a P followed by a SHIFTed j [ 

O, you'll see the letter P, followed by a graphics character. 
BASIC, however, understands that you mean POKE. But how 

will BASIC handle a graphics character in the middle of a 1 | 

variable name? 



10 LET NJUMBER = 50 
20 PRINT NJUMBER 



To get the graphics character between N and U, type a 

SHIFTed J. You can use any graphics character that will not j | 

result in an abbreviation of a BASIC keyword. (For example, 

20 U 
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an N and a SHIFTed E combine to form the keyword NEXT.) 

Now list the two-line program, and you should see the 
following on the screen: 

10 LET NUMBER = 50 
20 PRINT NUMBER 

Now run it, and this appears: 

50 
READY. 

Nothing too impressive. All you have is a program that lists 
and runs exactly as it would if you had left out the graphics 
characters. Now let's do something that's downright illegal. 

10 LET TOP = 65 

20 LET BOTTOM = 90 

30 PRINT BOTTOM - TOP + 1 

If you enter and run this program, you'll get a S5mtax error. 
The sequence TO may not appear anywhere within a variable 
name as it does here in TOP and in BOTTOM. It's reserved as 
a BASIC keyword (as in FOR J = 1 TO 5). 

Let's try to fool BASIC. You can place a graphics character 
(the SHIFTed J) just before the character that completes the 
BASIC keyword — that is, before the O in each TO. 

10 LET TJOP = 65 

20 LET BOTTJOM = 90 

30 PRINT BOTTJOM - TJOP + 1 

Here's what you see when you list it: 

10 LET TOP = 65 

20 LET BOTTOM = 90 

30 PRINT BOTTOM - TOP + 1 

These lines appear identical to the illegal program you entered 
just a moment ago. Now run the program with the embedded 
graphics characters. You should see: 

26 
READY. 

It works, with an illegal variable name in every line. Try it 
with variable names such as LETTER, FN$, EFFORT, SEND, 
or your own favorite forbidden name. 

A word of caution, though. ST, TI, and TI$ are reserved 
variable names, not keywords like LET, IPRINT, and other 
BASIC commands or functions. You'll not be able to use vari- 
able names whose first two letters match these (like START or 
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TIME) even with the technique described in this article. Since 
they are just variable names, however, you may embed them 
elsewhere within longer names of your own (FIRST and AT- 
TIC, for example, will work) without any special editing tricks. 

Indented Listings and Blank Lines 

Besides preventing the selection of certain variable names, 
BASIC also seems to prevent the entry of blank lines and 
spaces at the beginning of a line. Thus, it's not possible to 
neatly frame the blocks of code — loops or IF-THEN options or 
subroutines — that occur in a program. If you've programmed 
only in BASIC, you may not be concerned about this. But any- 
one who has used a computer language like Pascal appreciates 
being able to . see a listing like this: 

10 FOR I = 1 TO 10 

20 PRINT "WE INDENT EVERY STATEMENT" 

30 PRINT "THAT LIES WITHIN" 

40 PRINT "THE FOR-NEXT 'BLOCK'" 

50 NEXT I 

60 

70 PRINT "AND LEAVE A BLANK LINE BKTWEEN BLOCKS" 

Try entering and listing the program above on your 64. Here's 
what you should see on the screen: 

10 FOR I = 1 TO 10 

20 PRINT "WE INDENT EVERY STATEMENT" 

30 PRINT 'THAT LIES WITHIN" 

40 PRINT "THE FOR-NEXT 'BLOCK"' 

50 NEXT I 

70 PRINT "AND LEAVE A BLANK LINE BETWEEN BLOCKS" 

The blank line and all the indentations have disappeared. Of 
course. Commodore BASIC lets you place a single colon at the 
start of each line and then indent as much as you wish. But 
that's not quite the same as a nice, clean blank line. 

Once again, you can type an extra graphics character and 
fool BASIC. When entering a program, many people type a 
space after the line number for readability. But instead of the 
space, you can type the SHIFTed J. Reenter the preceding pro- 
gram this way: 

10JFOR I = 1 TO 10 

20J PRINT "WE INDENT EVERY STATEMENT" 

30J PRINT "THAT LIES WITHIN" 

40J PRINT "THE FOR-NEXT 'BLOCK'" 
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50JNEXT I 

70JPRINT "AND LEAVE A BLANK LINE BETWEEN BLOCKS" 

Now when you type LIST, you see an indented format identi- 
cal to the one you first tried to enter. 

Fooling BASIC into giving you a blank line is a little trick- 
ier. A single SHIFTed J will not do the job. If you add a line 
99, say, to your program and put only the graphics character 
on that line, line 99 will still not show up in the a listing. But 
try entering this (note the space between the two SHIFTed Js): 

99 J J 

Now tj^e LIST and you'll see a blank line 99. 
Paying the Price 

There is a price to pay for all this. The most obvious is mem- 
ory consumption. Long variable names and indentation gobble 
up a lot of bytes. A final version of a routine, though, can be 
condensed by a good list-crunching program (such as 
"Crunch," found elsewhere in this book), while the original 
remains a very readable version for later examination or re- 
vision. And with the Commodore 64, most times you don't 
have to worry about memory limitations. 

Another penalty is simply the bother of remembering to 
type extra characters. Be careful whenever you try to edit a 
line. To preserve any indentation, you must enter a SHIFTed J 
in place of the space following the line number each time you 
change the line. And it's easy to forget to convert a variable 
name this way by inserting a graphics character within an 
embedded BASIC keyword. If you do forget, you'll be re- 
minded when you get a S5mtax error in the program. So watch 
your editing steps carefully. 

If you're a hunt-and-peck typist, you might find entering 
all these extra characters a nuisance. But a little irritation can 
lead to a lot of satisfaction when you get a more readable pro- 
gram listing. 

How Does It Work? 

There are BASIC routines that run and list a program. If 
you've experimented with the short listings here, or with your 
own, you've already proved that the RUN command appar- 
ently doesn't mind using keywords in variable names, and 
that the LIST command seems to accept leading spaces in 
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indented lines. If these key routines are so tolerant, what is it 
that requires us to be so sneaky in achieving these results? The 
answers lie in the behavior of several other parts of BASIC. 

Are They Really Illegal? 

First, let's consider illegal variables and a BASIC routine we'll 
caU TOKENIZE. 

We usually think of BASIC commands as words like IN- 
PUT or LET or GOTO. But the RUN routine does not see it 
that way. By the time RUN sees a program, BASIC keywords 
have been replaced by single-byte numeric codes, or tokens. 
TOKENIZE is the part of BASIC that translates the keywords 
you enter into these codes. For example, when you type the 
word INPUT, TOKENIZE collects the characters in that word 
from the five bytes of memory they occupy, matches them 
with a word in the computer's list of BASIC keywords, and 
then replaces them with the token for INPUT (the number 
133), which takes up only one byte. This saves space in 
BASIC memory. 

But TOKENIZE also discards any out-of-place graphics 
characters as it crunches a BASIC command into the comput- 
er's memory. This is what allows us to enter forbidden vari- 
able names. When you insert a graphics character (like the 
SHIFTed J) in the middle of what would otherwise be a 
kejword, imagine how TOKENIZE must react. Does it ever 
find the word INPUT? Not quite. As it is collecting characters, 
it's interrupted before finding a perfect match with the BASIC 
word INPUT. The match is a failure, but the character which 
foiled it is eventually discarded. When RUN gets at the pro- 
gram, it now finds a plain INPUT (five bytes worth) instead of 
5ie single-byte token that represents the INPUT command. 
Any such character string is treated as a variable name. 

Our illegal variable names, then, are not illegal at all. You 
just have to be sneaky enough in entering and editing them to 
prevent TOKENIZE from doing its job. 

Finding the Right Routine 

And what of the graphics character used at the beginning of 
an indented line? 

TOKENIZE is involved again, this time because it does 
just what you want done: It keeps spaces right where you put 
them. Some other parts of BASIC use a routine that discards 
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spaces. One of these is the part that translates the characters 
in a line number you type to the numeric form in which it is 
stored. Try leaving a space between two digits in a line num- 
ber. No problem — the spaces are discarded and the line num- 
ber appears in a listing just as if you had not inserted them. 

BASIC continues to throw away spaces until a nondigit 
character which eliminates all indented lines is found. The rest 
of the line is turned over to the TOKENIZE routine. But by 
then it is too late: All indentations have already been stripped. 

Our strategy must be to place a character immediately 
after the line number so that the following spaces will be han- 
dled by the right routine for our purposes — by TOKENIZE. A 
graphics character, first recognized as a nondigit character in 
the collection of a line number and then neatly discarded by 
TOKENIZE, is the perfect choice. 

Guarding the Blanks 

Finally, you may recall that in order to create a blarik line (but 
which still has a line number), you needed first a graphics 
character, then a space, then a second graphics character. The 
reason for the first was just discussed. A space is needed so 
there will be something on the line for TOKENIZE to accept. 
Remember that entering a completely blank line just results in 
its elimination from the program. But what of the second 
graphics character? If TOKENIZE doesn't mind spaces, why 
shouldn't it accept a whole line full of them following the ini- 
tial graphics character? 

In the first place, you probably want only one space — ^just 
enough to create a blank line. And second, TOKENIZE never 
gets to look at those trailing spaces anyway. The very first part 
of BASIC involved in handling a new line, the part that col- 
lects characters off the screen, discards these spaces. Both 
graphics characters are needed to protect lone blanks from the 
space-killing habits in a couple of parts of BASIC. If you want 
blank lines with a lot of spaces, though, there is no reason 
why you couldn't enter one with, say, 70 of them. Just be sure 
they have graphics "bodyguards" on either end. 
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Mystery at Marple 
Manor 

John R. Prager 

You've been summoned to Marple Manor on a 
dark and stormy night to investigate the uri' 
expected demise of one of the dinner guests. Clues 
are everywhere, hut can you discover who did it, 
to whom, how, and where? A mystery text- 
adventure for one to six players. 



Searching through the study, you find a duelling pistol hidden 
under a cushion. Later, you discover the cook cowering in a 
closet. The greenhouse door is locked, but you have the key. 
And there, concealed in the potted ferns, is the body of the 
Duchess. 

Your job is to find out "whodunit," and how, before the 
other detectives crack the case. They're a shifty lot, who might 
hide vital clues or steal the evidence you've accumulated, just 
to throw you off the track. There are over 15,000 possible 
solutions, but only one correct answer. A different mystery is 
chosen each time the program runs. It's a race against your 
fellow sleuths to find that unique answer, 

"Mystery at Marple Manor" may be a departure from the 
computer games you're used to playing. Patient strategy is 
more important than quick reflexes for the successful detec- 
tive. In many ways, the game resembles computer text- 
adventures, as well as familiar board games of logic and 
deduction. 

For Sleuths Only 

Type in and save Mystery at Marple Manor. Use "The Auto- 
matic Proofreader" (Appendix C) to insure an error-free copy 
of the program the first time. Although the program is a bit 
long, much of it is in the form of PRINT statements, which 
should be easier to enter than other BASIC program statements. 
In order to solve the case, you must correctly identify the 
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murderer, the victim, the weapon used, and the room where 
the heinous deed was done. Before you arrived, the manor 
held ten people and twelve possible weapons; however, the 
murderer has fled to parts unknown with the weapon he or 
she used, leaving behind the body of the victim, eight poten- 
tial witnesses, and only eleven weapons. 

As you travel through the mansion, use paper and pencil 
to keep a careful record of all suspects and weapons you see. 
When you've located all the objects that remain in the house, 
use the process of elimination to identify the murderer and 
weapon used. The victim's body is also in one of the rooms; 
once you find it, you can record the victim's identity and the 
scene of the crime. 

It sounds simple, but there are complications. At the out- 
set, many of the suspects and weapons will be hidden in the 
various nooks and crannies of the manor. You and your fellow 
detectives may have to search each room thoroughly, possibly 
several times, before all the concealed items are discovered. 
The detectives can even pick up and move items from room to 
room in the course of play. Suspects and the body of the vic- 
tim cannot be moved, but they can be hidden by detectives in 
the same room. 

Marple Manor is a house of 14 rooms. Part of the fun of a 
game like this is to discover the floor plan. (If you really want 
help in the form of a map, you can refer to the September 
1984 issue of COMPUTE'.'s Gazette, where this game originally 
appeared.) Up to six people can play, and all players begin the 
game in the foyer at the southern end of the house. Detectives 
alternate turns until one correctly solves the mystery, or until 
all have made incorrect guesses and, consequently, have been 
eliminated from the game. Although each player takes a sepa- 
rate turn, the game works just as well if the players form 
teams of equal size. This allows two or three teammates to 
travel through the house independently, yet share their 
discoveries and arrive at a solution together. 

Passwords and Locked Doors 

The game begins with a title screen and a thunderclap. This 
gives detectives time to assign player numbers, organize teams 
(if desired), and ready their notepads. Type a number from 1 
to 6 to enter the number of players, and the game begins. 
At this point, all players except the first should position 
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themselves so they can't see the screen. After all, each player 
will be acquiring information in the course of the game that he 
or she wishes to keep secret from the others for as long as 
possible. To help preserve secrecy, you'll be asked to enter a 
password code on your first turn. This password can be any 
two characters from the keyboard — numerals, letters, spaces, 
special symbols, or even function keys. Be sure to choose a 
code that you can recall easily, and bear in mind that the com- 
puter will recognize shifted keys and unshifted keys as dif- 
ferent entries. On later turns, you must enter your secret code 
before going on. This prevents other players from illegally us- 
ing your turn to gather information for themselves. 

After you type in your password, the computer reminds 
you of your current location and asks if you wish to move. If 
you answer yes, the computer lists all available exits. Type in 
the appropriate compass direction (N, S, E, or W) to move to a 
new room. If you try to move in a direction that doesn't have 
a matching door — for example, if you try to move south from 
the foyer — your move will be blocked. 

Your move may also be blocked if you attempt to move 
through a locked door. Eleven doors in Marple Manor can be 
fastened shut, and at the start of the game, most of these 
doors are locked. To move through a locked door, you must 
possess a key which matches the lock; for example, the bed- 
room key wfll open any door that adjoins the bedroom. All of 
these keys are initially placed in the pantry. One special key, 
the skeleton key, can open any locked door but is powerless to 
lock doors; its starting location will vary from game to game. 

Whether or not you move to a new room, the computer 
describes your surroundings. It tells you the room you're in; 
notes what item you carry, if any; lists all suspects, weapons, 
and keys in view; and names all the other players in the room. 

Searching for Clues 

Following the description, you'll see a list of choices. Select 
from these options by pressing the appropriate key. One op- 
tion is to take no action; this allows you to end your turn and 
readies the computer for the next player. 

Searching is the most popular option. At the start of play, 
many suspects and items are hidden in various rooms. 
Additionally, players may use the Hide option to stash away 
even more clues. Searching is the only way to find these 
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hidden objects. Each time a player searches in a given 
room, there's a 50 percent chance of finding each item hidden 
in that area. For this reason, a room may be searched several 
times before all the objects it contains are revealed. A search- 
ing player does not automatically take any item he finds. 

The Hide option is the logical counterpart to the Search. 
You may choose to hide any one object in the room you oc- 
cupy. This object may be a weapon, a suspect, a key, or the 
corpse. You may even hide the object you're carrying. But you 
can't hide yourself or another player. Hiding items makes it 
more difficult for your opponents to locate the clues they need 
in order to win. Don't forget, of course, to record each clue in 
your notes before you hide it. Hidden objects may be sub- 
sequently discovered by any player searching in the room. 

The Take option allows you to pick up a weapon or key in 
the room you occupy. You may carry only one item at any 
time. If you choose the Take option while holding an object, 
you automatically drop the object you're holding. Alter- 
natively, the Drop option allows you to discard an item with- 
out taldng another. The usefulness of the Take option cannot 
be overstated: Carrying keys allows you to pass through 
locked doors, while weapons in your possession cannot be 
discovered by players who search. However, the Pilfer option 
allows a player to steal from another player in the same room. 
The pilfering player drops any item carried, and takes the ob- 
ject tiie other player had held. 

When you're certain you have the solution to the case, se- 
lect the Accuse option. You'll be asked to identify the mur- 
derer, the victim, the weapon, and the scene of the crime from 
lists of the possibilities. An incorrect guess eliminates you from 
further play. Give the correct solution, though, and you win 
the game. 

Mystery at Marple Manor 

For mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C. 

9 POKE53280,1 :POKE53281 ,0:5=54272 :FORJ=0TO24 : POKES 
+J,0:NEXT:POKES+24, 15 : rem 35 

12 PRINT"{CLR} {6 DOWN } "TAB( 7 ) " i8§ { RVS } g* i { 4 RIGHT} 
£" :rem 121 

13 PRINTTAB(7)"{RVS} g*§l2 RIGHT}£ " : PRINTTAB ( 7 ) " 
{RVS}{2 SPACES }g*|£{ 2 SPACES} {OFF} YSTERY" 

:rein 238 
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15 PRINTTAB(7)"{RVS} B{ 2 SPACES }B " : PRINTTAB ( 7 ) " 
{RVSl B{2 spaces }B ": PRINT" {3 UP } "TAB ( 21 ) CHR$ (1 
42 ) ; : rem 153 

24 GOSUB1713 :PR1NT"AT" : rem 82 

27 PRINT"{DOWN)"TAB(12)"g5i{RVS}g*3l4 RIGHT}£":PR 
INTTAB(12)"{RVS} g*H2 RIGHT }£ " : rem 42 

28 PRINTTAB(12)"{RVS}{2 SPACES } g*3£{ 2 SPACES} 
{OFF} ARPLE" srem 102 

30 PRINTTAB ( 12 )"{RVS} B{ 2 SPACES }B ": PRINTTAB ( 12 ) " 
{RVS} B{2 SPACES}b " :rem 129 

33 PRINT"TUP}"TAB(17T"i4ilRVSli*l{4 RIGHT}£" :PRIN 
TTAB(17)"{RVS} B*§{2 RIGHtU " : PRINTTABT17 ) " 
{RVS} {2 SPACES }g*3£{ 2 SPACES) {OFF} ANOR" 

:rem 167 

36 PRINTTAB{ 17 ) " {RVS} B{2 SPACES }B ": PRINTTAB ( 17 ) " 
{RVS} B{2 SPACES }b : rem 145 

39 GOSUB1713 :rem 184 

42 FORJ=1TO1000 :NEXT :rem 226 

45 POKES+5,15:POKES+6,0:POKES+4,129 : rem 57 

50 J=l :F0RI=1T015 :POKE53281 , J:POKE53280,1-J;rem 31 

51 POKES+l,INT(RND(l)*20)+5 : rem 254 
53 J=1-J:FORP=1TO30:NEXT:NEXT :rem 110 
56 POKES+4,0 :rem 168 
100 DEFFNR(X)=INT(RND(1)*X)+1:J=RND(-TI) :rem 108 
103 DIMP% ( 50 ) , S$ ( 22 ) , R$ ( 14 ) , C$ ( 6 ) , V$ ( 3 ) , V( 3 ) , D% ( 10 

,2) : rem 56 

112 FORJ=1TO10:P%(J)=FNR(11)+3:NEXT : rem 46 

115 F0RJ=11T022:P%(J)=FNR(13)+1:NEXT :rem 101 

118 FORJ=24T031 :P%(J)=4:NEXT : rem 169 

121 P%(23)=FNR(8)+6 :rem 204 

124 J=FNR(10) :P%(35)=J:P%( 34)=P%(J) :P%(J)=0:rem 16 
127 J=FNR(10) :IFP%(J)=0THEN127 :rem 200 

130 P%(32)=J:P%(J)=0: J=FNR(12) :P%{ 33 )=J : P% { J+10)=0 

;rera 136 

133 F0RJ=1T022:IFRND(1)<=.75THENP%( J)=-P%(J) 

:rem 56 

136 READS$( J) :NEXT : rem 65 

139 F0RJ=1T014:READR$(J) :NEXT : rem 36 

142 FORJ=0TO10 : READD% ( J , 1 ) , D% ( J , 2 ) : I FRND ( 1 ) < . 9THEN 
D%(J,0)=-1 srem 122 

143 NEXT :rem 215 
145 FORJ=0TO3:READV$( J) :NEXT :rem242 
148 P=2049:I=0:PORJ=4000TO7000STEP1000 : rem 188 
151 IFJ=PEEK(P+2)+PEEK(P+3)*256THENDA(I)=P:I=I+lsG 

OT0157 srem 54 

154 P=PEEK(P)+PEEK(P+l)*256:GOT0151 srem 11 

157 NEXT :rem 220 

172 PRINT" {HOME} {21 D0WN}{BLK}{6 SPACES}H0W MANY P 

LAYERS (1-6) ?" srera 218 

175 GETA$:IFA$<"l"ORA$>"6"THEN175 srem 75 
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178 I=VAL(A$) :P%(49)=I srem 178 

181 F0RJ=1T0I:P%(35+J)=1:NEXT :rem 233 

190 PRINT"{CLR} {2 D0WN}i4iALL PLAYERS EXCEPT PLAYE 
R #1 MUST LEAVE "CHR$( 14) : rem 7 

192 PRINT"THE ROOM AT THIS POINT. ": PRINT" {DOWN} 

{3 SPACES } PLAYER # 1: PRESS {RVS} RETURN {OFF} 

:rem 152 

193 PRINT"{7 SPACES}TO BEGIN THE GAME!" :rem 146 

194 GETA$:IFA$<>CHR$(13)THEN194 : rem 14 
196 POKE53280,12 :POKE53281,15 :Q=1 :rem 87 
200 PRINT"{CLR} {2 DOWN }{ BLK } PLAYER #"Q" 

§43 {DOWN}" :rem 120 

203 IFC$(Q)<>""THEN212 : rem 175 

206 PRINT"PRESS ANY TWO KEYS TO ESTABLISH YOUR" 

: rem 37 

207 PRINT "SECRET CODE. WITH THIS CODE, NO OTHER" 

:rem 211 

209 PRINT"PLAYER CAN STEAL YOUR TURNl " :PRINT" 
{DOWN} ENTER YOUR CODE NOWl" :rem 214 

210 GOSUB1700:C$(Q)=A$:GOTO218 : rem 206 
212 PRINT" { DOWN }ENTER YOUR SECRET CODE 1 " :GOSUB1700 

:rem 72 

215 IFC$(Q)<>A$THENI=0:GOSUB1710:GOTO200 : rem 124 

218 PRINT"{CLR} {2 DOWN } { BLK } PLAYER #"Q" 

§43 {DOWN}" :rem 129 

221 R=P%(35+Q) : PRINT "YOU ARE IN THE "R$(R)"." 

I rem 49 

224 PRINT"DO YOU WISH TO LEAVE THIS ROOM [Y/N] ?" 

: rem 6 

227 GETA$ :IFA$="N"THENPRINT"NO" :GOTO330, : rem 3 

230 IFA$<>"Y"THEN227 : rem 106 

233 I=1:J=R:GOSUB1730:FORJ=0TO3:READV(J) :NEXT 

:rem 85 

236 PRINT"YES": PRINT "{DOWN} DOORS FROM THIS ROOM AR 
E FOUND TO THE:" : rem 187 

239 FORJ=0TO3:IFV(J)<>0THENPRINTTAB(4) ;V$(J) 

:rem 222 

242 NEXT: PRINT "{ DOWN }TYPE {RVS}{BLK} N {OFF} , 
{RVS} S {OFF} , {RVS} E {OFF} ,i4lOR {RVS} 
{BLK} W {OFF}B43 TO MOVEr':I=3 :rem 227 

245 GETA$:IFA$=""THEN245 : rem 89 

248 A=ASC ( A$ ) ORl 28 : 1 =0 : 1 FA< 19 70RA> 21 5THEN245 

:rem 62 

251 IPA=ASC(V$(I))THEN260 : rem 168 

254 1=1+1 :IFI<4THEN251 :rem 15 

257 GOT0245 :rem 114 

260 PRINT"GO "V$(I) :rem 147 

261 IF V(lT<lTHENPRINT"NO DOOR THIS WAY. YOU CAN'T 

MOVE.":GOTO1910 : rem 154 
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263 IFV(I) <100THKNR=V( I) :PRINT "MOVING TO NEW ROOM. 
LJ ":FORI=1TO1000:NEXT:GOTO330 : rem 166 

266 Z=V(I)-100:IFD%(Z,0)=0THEN300 : rem 75 

269 PRINT"THAT DOOR IS LOCKED" :GOSUB1760 :rem 45 

270 IFA=0THENPRINT"YOU DON'T HAVE A MATCHING KEY." 
' — :PRINT"NO MOVE. " :GOTO1910 :rem65 

272 PRINT"YOUR KEY OPENS THE DOOR. " :GOSUB1770 :PRIN 
)— -) T "MOVING TO NEW ROOM." :rem 200 

7 \ 300 I=D%(Z,1) :IFI=RTHENI=D%(Z,2) :rem82 

303 R=I:GOSUB1760:IPA<>1THEN330 :rem 112 

306 PRINT "DO YOU WANT TO LOCK THIS DOOR BEHIND 

{4 SPACES }YOU{ 2 SPACES } [Y / N] ?" :rem 96 

309 GETA$ :IFA$="N"THENPRINT"NO":GOTO330 :rem 4 

312 IFA§<>"Y"THEN309 : rem 108 

315 PRINT"YES":GOSUB1770:PRINT"DOOR LOCKED .": rem 3 
330 P% (Q+35)=R: PRINT "{ DOWN } {CLRT{ 5 D0WN}Y0U ARE IN 
THE "R$(R)"." :rem 43 

333 PRINT"YOU CARRY " ; :I=P% (Q+41 ) :GOSUB1780 :PRINT" 

." :rem 205 

336 J=0 :PRINT"YOU SEE THE FOLLOWING HERE :": rem 168 
339 F0RI=1T031:IPP%(I)=RTHENJ=J+1:PRINT"{3 SPACES} 

"; :GOSUB1780:PRINT". " :reml6 
342 NEXT:FORI=1T06:IFI<>QANDP%(35+I)=RTHENPRINT" 

{3 SPACES iPLAYER #"I".":J=J+1 : rem 252 

345 NEXT:IPP%{34)=RTHENPRINT"{3 SPACES}THE BODY OF 
THE "S$(P%(35))".":J=J+1 :rem 180 

348 IFJ=0THENPRINT"NOTHING OF INTEREST." :rem 173 
351 PRINT" {DOWN} PRESS {RVS}{BLK} RETURN 

{SHIFT-SPACET{OPF}i43 FOR OPTIONS ":rem 158 

354 GETA$:IFA$<>CHR$(13)THEN354 : rem 10 

375 PRINT "{CLR}" :rem 3 

376 PRINT" {4 D0WN}{BLK}{3 SPACES}>>>>> TURN 

{ SHIFT-SPACE } OPTIONS <<<<<{2 DOWN }": PRINT " 141 
{RVS}a{OFP} ACCUSE THE MURDERER I" :rem 129 

377 PRINT"{SHIFT-SPACE}{RVSTd{OPF} DROP AN ITEM.": 
PRINT" {RVS}H{0FF} hide AN ITEM OR SUSPECT." 

:rem 224 

- -- 379 PRINT" {RVS}N{0FF} NO ACTION ." :PRINT" {RVS}P 

{off} pilfer from another PLAYER." :rem 240 
381 PRINT" {RVS}S{0FF} SEARCH THE ROOM FOR HIDDEN 
{ SPACE} ITEMS. ": PRINT" {RVS}T{0FF} TAKE AN ITEM 

: rem 143 

384 PRINT" {2 D0WN}ENTER LETTER FOR ACTION DESIRED 1 
{3 DOWN}" srera 89 

387 GETA$:IFA$<"A"ORA$>"T"THEN387 : rem 131 

390 PRINT " { CLR } " : A=ASC ( A$ ) :ONA-64GOTO700 ,375,375,8 
00 :rem 30 

393 IFA$="H"THEN970 :rem 43 

396 IFA$<"N"THEN375 :rem 50 

400 ONA-77GOTO450,375,880,375,375,930,820 : rem 154 
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450 PRINT"{2 DOWNlPRESS {RVS}{BLK} RETURN {0FFlE4i 
TO END YOUR TURN I" : rem 119 

453 GETA$:IFA$<>CHR$(13)THEN453 :rem 10 

456 I=0:PRINT"{BLK} {CLR} {4 DOWN} PLAYER #"Q" ======= 

==== END TURN":GOSUB1710 :rem 142 

459 Q=Q+1:IFQ>P%(49)THENQ=1 : rem 86 

462 IFP%(Q+35)=0THEN459 : rem 19 

465 GOTO200 : rem 106 

700 PRINT" {CLR} {DOWN} {elk} {3 SPACES}***** MAKE AN 

{ SPACE } ACCUSATION ***** {DOWN } i4B " :I=1 :rem 112 
703 FORJ=1TO10:PRINTJ"{LEFT}:"TAB(5)"THE ";S$(J)". 

":NEXT :rem 163 

706 PRINT" {3 D0WN}ENTER NUMBER OF MURDER VICTIM " ; 

: INPUT J :rem 231 

709 IFJ<>P%(35)THENI=0 : rem 6 

712 GOSUB1900 :rera 228 

715 PORJ=1TO10:PRINTJ" {LEFT} :"TAB(5) "THE ";S$(J)". 

":NEXT I rem 166 

718 PRINT" {3 DOWN}ENTER NUMBER OP MURDERER ";:INPU 

TJ :rem 53 

721 IFJ<>P%(32)THENI=0 :rera 253 

724 GOSUB1900 :rem 231 

727 F0RJ=1T012:PRINTJ"{LEFT}:"TAB(5)"THE "S$(J+10) 

".":NEXT :rera 252 

730 PRINT" {3 DOWN}ENTER NUMBER OF MURDER WEAPON "; 

:INPUTJ :rera 226 

733 IFJ<>P%(33)THENI=0 :rem 1 

736 GOSUB1900 :rem 234 

739 P0RJ=1T014:PRINTJ"{LEFT}:"TAB(5)"THE "R$(J)"." 

:NEXT :rem 116 

742 PRINT" {3 DOWN}ENTER NUMBER OF MURDER ROOM ";:I 

NPUTJ I rem 88 

745 IFJ<>ABS(P%(34) )THENI=0 :rem44 

746 PRINT" {CLR} {5 DOWN} SUMMONING THE POLICE TO MAK 
E AN": PRINT "ARREST " :rem 244 

748 POKES+14 , 5 : POKES+18 , 16 : POKES+3 , 1 : POKES+24 , 143 : 
POKES+6,240:POKES+4,65:A=5389 :rem 163 

751 FORJ=1TO200 : R=A+PEEK ( S+2 7 ) * 3 . 5 : POKES , RAND2 5 5 : P 
OKES+l,INT(R/256) :NEXT :reml31 
754 PORJ=0TO24 :POKES+J,0:NEXT I POKES+24, 15 :rem 44 
757 FORJ=1TO2500:NEXT : rem 37 

760 IPI=0THEN772 :rem 177 

763 1=3: PRINT "YOUR SOLUTION IS CORRECT I " :G0SUB17 10 

:rem 2 

769 PRINT" {2 D0WN}PLAYER #"Q"HAS CRACKED THE CASE I 
":GOT0787 : rem 158 

772 1=2 :PRINT"N01 .. .THAT WAS A FALSE ARREST 1" :GOSU 
B1710 :rem 232 

775 GOSUB1800:P%(35+Q)=0:P%{50)=P%(50)+1:PRINT"YOU 
'RE OUT OF THE GAME I" : rem 85 
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I— *^ 778 IFP%(50)<P%(49)THEN450 : rem 151 

'f__\ 781 RESTORE:GOSUB1713:FORJ=1TO500:NEXT:GOSUB1713 

:rein 90 

784 PRINT" {DOWN} ALL PLAYERS HAVE GIVEN INCORRECT": 
!/ PRINT "SOLUTIONS TO THE CRIME 1 1 " : rem 85 

785 PRINT" {DOWN} NOBODY WINS !" : rem 51 
787 PRINT"HERE IS THE CORRECT SOLUTION :": PRINT "THE 

"S$(P%(32)) :rem 192 

789 PRINT"KILLED THE "S$ (P% ( 35 ) ) :PRINT"IN THE "R$( 
ABS(P%(34)))"," :rem 19 

791 PRINT"USING THE "S$ ( P% ( 33 ) +10 ) " . { 2 D0WN}":END 

:rem 254 

800 PRINT"{2 D0VTO}{BLK}{3 SPACES}*** DROP AN ITEM 

{SPACE}***g4l" :GOSUB1800 :rem 36 

803 IFI=0THENPRINT"{ DOWN} YOU WEREN'T CARRYING ANYT 
HING l":GOTO450 : rem 88 

806 PRINT" {DOWN}YOU DROP " ; :GOSUB1780 :PRINT" . " :GOT 
0450 : rem 60 

820 PRINT"{2 D0WN}{BLK}{3 SPACES}*** TAKE AN ITEM 
{SPACE}***E4i":J=l:PRINT"{D0V'JN}THESE ITEMS ARE 
AVAILABLE:" : rem 175 

823 F0RI=11T031 :IFP%{I) ORTHEN829 :rem 233 

826 PRINTJ": " ? :GOSUB1780 :PRINT" . " :POKE900+J , I : J=J 
+1 :rem 70 

829 NEXT!lFJ=lTHENPRINT"NO ITEMS ." :GOTO450 : rem 60 
832 PRINT" {DOWN }ENTER NUMBER TO TAKE AN ITEM, OR": 
PRINT"ENTER ZERO TO TAKE NOTHING." : rem 111 
835 INPUT"WHAT ITEM DO YOU WANT" ; A:IFA<0ORA>=JTHEN 
835 :rem 137 

838 IFA=0THENPRINT"{DOWN}NO ITEM TAKEN . ":GOTO450 

:rem 234 

841 GOSUB1800 :IFI<>0THENPRINT"YOU DROP ";:GOSUB178 
: PRINT ", " :rem 82 

844 I=PEEK(900+A) :P%(I)=100+Q:P%(Q+41)=I :rem 155 

845 PRINT"YOU TAKE " ; :GOSUB1780 :PRINT" . " :GOTO450 

: rem 30 

880 PRINT" {2 D0WN}{BLK}{3 SPACES}*** PILFER FROM A 
NOTHER ***g4l":J=0 :rem 46 

881 PRINT " { DOWN } THESE PLAYERS ARE ALSO IN THE ROOM 
..." :rem 226 

883 F0RI=1T06 :IPP% ( 35+1 )=RANDI OQTHENPRINT" 

{3 SPACES }PLAYER #"I".":J=J+1 :rem 141 

886 NEXT:IFJ=0THENPRINT"NO OTHER PLAYERS ARE IN TH 
E ROOMI":GOTO450 :rem 222 

889 PRINT" {DOWN} WHICH PLAYER WILL YOU STEAL FROM ? 

:rem 108 

890 PRINT"ENTER NUMBER, OR PRESS ZERO." :rem 1 

892 INPUT"PILFER FROM PLAYER # " ; A: I FA<0ORA>P% ( 49 ) T 
HEN889 :rem 250 

893 IFA=0THENPRINT"NO THEFT ." :G0T04 50 :rem 179 
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895 IFA=QTHENPRINT"YOU CAN'T STEAL FROM YOURSELF 1" 

:GOT0892 :rem 43 

898 IPP%(35+A)<>RTHENPRINT "PLAYER #"A"IS NOT HERE 

{SPACE} l":G0T0889 : rem 129 

901 GOSUB1800:IFI<>0THENPRINT"YOU DROP ";:G0SUB178 

0: PRINT"." :rem 79 

904 I=P%(A+41) :IFI=0THENPRINT"PLAYER #"A"CARRIED N 

O ITEM! " :GOTO450 : rem 33 

907 P%(Q+41)=I:P%(A+41)=0:P%(I)=100+Q : rem 158 

908 PRINT"YOU TAKE " ; :GOSUB1780 :PRINT" . " :GOTO450 

: rem 30 

930 PRINT" {2 D0WN1{BLK}{3 SPACES}*** SEARCH THE RO 
OM ***i4i" :J=0: PRINT "{DOWN} YOU FIND THE FOLLOW 
ING:" :rem 125 

933 F0RI=1T031:IFP%(I)<>-RTHEN942 : rem 227 

936 IPRND(1)> .5THEN942 : rem 6 

939 J=J+1:PRINTTAB(4) ; :GOSUB1780 :PRINT" . " :P% ( I )=R 

:rem 203 

942 NEXT:IFP%(34)<>-RORRND(l)> .5THEN948 : rem 73 
945 J=1:PRINT"{4 SPACES }THE BODY OF THE "S$(P%{35) 
)".":P%(34)=R :rem 200 

948 IFJ=0THENPRINT"{2 SPACES} NOTHING 1" 

:rem 177 

951 GOTO450 : rem 113 

970 PRINT"{2 D0WN}{BLK}{3 SPACES}*** HIDE ITEM OR 
{SPACE} SUSPECT ***B4i":J=l :rem 57 

971 PRINT " { DOWN }THESE CAN BE HIDDEN:" :rem 187 
973 P0RI=1T031 :IFP%(I)<>RTHEN979 : rem 196 
976 PRINTJ": " ; :GOSUB1780 :PRINT" . " : POKE900+J, I : J=J 

+1 :rem 76 

979 NEXT:I=P%(Q+41) :IFI=0THEN985 irem 163 

982 PRINTJ": "; :GOSUB1780 : PRINT" (YOU CARRY IT).": 

POKE900+J,Q+41:J=J+1 : rem 77 

985 IFP%(34)=RTHENPRINTJ": THE BODY OF THE "S$(P%( 

35) )" . ":POKE900+J,34:J=J+1 :rem 211 

988 IFJ=1THENPRINT"N0THING HERE CAN BE HIDDEN 1":G0 

TO450 :rem 221 

991 PRINT" {DOWN} ENTER NUMBER OF ITEM TO HIDE, OR": 

PRINT"ENTER ZERO TO HIDE NOTHING." : rem 101 
994 INPUT"VraAT WILL YOU HIDE" ;A:IPA<0ORA>=JTHEN994 

tram 235 

997 IFA=0THENPRINT "NOTHING HIDDEN. " :GOTO450: rem 99 
1000 l=PEEK(900+A) :IPI>34THEN1009 :rem 114 

1003 P%(I)=-R:IPI=34THENPRINT"YOU HIDE THE BODY.": 
GOTO450 :rem 37 

1006 PRINT"YOU HIDE " ; :GOSUB1780 :PRINT" . " sGOTO450 

:rem 57 

1009 I=P%(Q+41) : PRINT "YOU HIDE THE OBJECT YOU CARR 
Y. . ..":GOSUB1780: PRINT"." :rem 42 

1012 P%(Q+41)=0:P%(I)=-R:GOTO450 :rem 233 

1700 GETA$:IPA$=""THEN1700 :rem 179 
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1703 GETB$ !lFB$=""THEN1703 :rem 187 

1706 A$=A$+B$ : RETURN : rem 128 

1710 J=1:GOSUB1730 :rem 6 

1713 READW,I,J:POKES+2,I:POKES+3,J:READI,J :P0KES+5 

,I:P0KES+6,J :rem 129 

1716 READZ:IFZ<0THENRETURN : rem 227 

1719 POKES+1 , INT(Z/256 ) :POKES,ZAND255 :READZ:POKES+ 

4,W :rem 61 

1722 FORJ=1TOZ*100:NEXT:POKES+4,0:GOTO1716 :rem 85 
1730 P=DA(I) :IFJ=1THEN1736 : rem 248 

1733 F0RI=1T0J-1 :P=PEEK(P)+PEEK(P+1 )*256 :NEXT 

:rem 209 

1736 P=P-1 :POKE66, INT(P/256) :POKE65 ,PAND255 : RETURN 

: rem 62 

1760 A=0:I=P%(41+Q) :IFI<230RI>31THENRETURN : rem 49 
1763 IPI=23THENA=-1 : RETURN :rem 112 

1766 1=1-17 :IPI=D%(Z,1)0RI=D%(Z, 2 )THENA=1 : rem 111 

1769 RETURN :rem 183 

1770 IFD%(Z,0)=0THEND%(Z,0)=-1 : RETURN : rem 143 
1773 D%(Z,0)=0:RETURN :rem 201 
1780 IFI=0THENPRINT"NO ITEM" ;: RETURN : rem 54 
1783 IFI<23THENPRINT"THE "S$ ( I ) ; :RETURN :rem 147 
1786 IFI=23THENPRINT"THE SKELETON KEY";:RETURN 

:rem 212 

1789 PRINT"THE "R$(I-17)" KEY";:RETURN : rem 50 

1800 I=P%(Q+41) :IFI=0THE1!IRETURN : rem 132 

1803 R=P%(Q+35) :P%(l)=R:P%(Q+41)=0:RETURN :rem69 
1900 PRINT" {CLR} {DOWN} {BLK} {3 SPACES}***** MAKE AN 
ACCUSATION *****{DOWN}i43":RETURN :rem 204 
1910 FORI=1TO2200:NEXT:GOTO330 : rem 82 

2000 DATA17 , , ,0 , 240 , 14435 , 1 , 12860 , 1 , 14435 ,7,0,4 

:rem 122 

2005 DATA12860 , 1 , 11457 , 1 , 10814 , 1 , 9634 , 1 , 9094 , 6 , 963 
4,8,0,8,-1 :rem 196 

2020 DATA17, 0,0, 0,240, 7217, 1,6430, 1,7217, 8, 0,7 

:rem 236 

2025 DATA5407,6,5728,6,4547,6,4817,24,-1 : rem 247 
3000 DATA "COOK" , "BUTLER" , "GARDENER" , "CHAUFFER" , "DU 
KE" , "DUCHESS " , "NANNY" : rem 131 

3005 DATA "OPERA STAR", "AMBASSADOR", "PRIME MINISTER 
", "CARVING KNIFE "."^ROPE" : rem 9 

3010 DATA "BOX OF WEED KILLER" , "ANTIQUE MACE", "DUEL 
LING PISTOL", "FENCING FOIL" :rem 216 

3015 DATA"I^CE PICK" , "PLASTIC BAG", "CHAIN SAW","HED 
GE TRIMMERS", "POLO MALLET" :rem 208 

3020 DATA "GARDEN SPADE ", "ENTRY FOYER" , "CORRIDOR" , " 
HALL", "PANTRY", "DINING ROOM" : rem 97 

3025 DATA"KITCHEN" , "STUDY" , "BEDROOM" , "BATHROOM" , "C 
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:rem 187 
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3030 DATA "POOL " , "GARAGE" ,2, 13, 2, 14, 3, 7, 3, 8, 3, 11, 7, 
9,8,9,8,10,11,12,12,13,13,14 : rem 163 

3035 DATA "NORTH " , "EAST " , "SOUTH " , "WEST " : rem 7 

4000 DATA33 , ,0 , 88 , 89 , 1804 , 6 , 2025 , 3 , 2145 , 6 , 2703 , 3 

:rem 149 

4005 DATA2408 ,1,2551,1, 2408, 1 ,2551,1, 2408, 1 ,2551,1 

,2408,1,2551,1,2703,8,-1 : rem 81 

5000 DATA5,3,0,2 : rem 45 

5005 DATA4, 1,101, 100 :rem 240 

5010 DATA104, 103, 102,1 : rem 81 

5015 DATA0,6,2,0 :rem 49 

5020 DATA6, 0,1,0 : rem 44 

5025 DATA0,0,5,4 :rem 51 

5030 DATA102, 105,0,0 : rem 239 

5035 DATA0,107,106,103 :rem 94 

5040 DATA106,0,0,105 : rem 244 

5045 DATA0,0,0,107 :rem 148 

5050 DATA0, 0,104, 108 : rem 246 

5055 DATA0, 108, 109,0 : rem 

5060 DATA109, 100,0, 110 : rem 86 

5065 DATA101,110,0,0 :rem 242 

6000 DATA65, 255, 0,9, 0,1804, 6, 1804, 4. 4, 1804,1 .5,180 

4,6,2145,4.5,2025,1.5 :rem 202 

6005 DATA2025, 4. 5, 1804,1 .5,1804,4.5,1804,1.5,1804, 

12,-1 :rem 177 

7000 DATA33 , , , 88 , 89 , 2408 ,4 , 3215,12, 3608 ,1.33, 240 

8,1.33,3608,1.33 :rem 223 

7005 DATA4050, 4, 4050, 4, 4050, 4, 4050, 1.33, 4291,1 .33, 

3215,1.33 :rem 116 

7010 DATA4050,6,3608,2,3215,8,-1 : rem 77 
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Screen'80 

80 Columns for the 64 

Gregg Peele and Kevin Martin 

Did you ever wish for an SO-column screen? 
"Screen-80" transforms your 64 into an 80- 
column machine wilJwut affecting the normal 
screen-editing keys. We've also included "Custom' 
80," which allows you to create your own SO- 
column character set with a joystick. 



"Screen-80" offers a full 80-column screen and gives you the 
ability to use your Commodore 64 to write, edit, and even run 
BASIC programs (including some commercial software), all 
with an 80-column display. You can even use all the cursor 
controls of the normal screen editor. It runs concurrently with 
the normal system, allowing a quick sv^tch between 40- and 
80-column modes. 

Best of all, little memory is used by Screen-80. The pro- 
gram consists of approximately 3K of machine language which 
goes into RAM "underneath" ROM. Another 43 bytes are 
placed in a little-used area of RAM (locations 710-753). Since 
the bulk of Screen-80 uses the same memory locations as the 
operating system, and the locations of the 43 bytes used from 
RAM are normally unused an)nvay, Screen-80 works without 
any apparent loss of programming space. 

Enter and Sign In 

Like many machine language programs in COMPUTE! books, 
Screen-80 is listed in MLX format. MLX makes it much sim- 
pler to type in machine language programs, and virtually in- 
sures a working copy the first time. Before you begin entering 
Screen-80, then, you must first type in the MLX program 
found in Appendix D. You'll want to have a copy of MLX, 
since it's used to enter machine language programs in COM- 
PUTE! books, COMPUTE! magazine, and COMPUTEl's Gazette. 
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MLX even has a built-in numeric keypad to ease the burden of 
typing all those numbers. 

If you're using tape to store programs, you must make 
one slight change to MLX before you save it. This change is 
only for MLX, and is only necessary when you type in Screen-80. 
Change line 763 of MLX to read: 

POKE780,1:POKE781,DV:POKE782,0:SYS65466 

The only change is that the POKE 782,1 in the original listing 
has been altered to a POKE782,0. Save this version of MLX 
for entering Screen-80. When you've typed in, saved, and 
tested Screen-80, you can change the POKE 782 back to its 
original form so that you can use MLX to enter other machine 
language programs from this book. Remember, this change is 
only for tape users. 

After you've loaded and run MLX, you'U be asked for the 
starting and ending addresses of Screen-80. Those addresses are: 

Starting address: 49152 
Ending address: 52811 

As soon as you've provided those addresses, you can be- 
gin typing in Program 1. Just follow the directions in Appen- 
dix D, and you shouldn't have any problems. You can even 
enter the program in several sessions if you want. Once 
you've completed the typing and saved the program to tape or 
disk, turn your computer off and then on again. 

Now load the program from disk or tape using the normal 
format for loading BASIC programs: 

LOAD "filename" fi (for disk) 
LOAD "filename" (for tape) 

Notice that you can load the program without the ,1 that gen- 
erally accompanies ML programs. If the program loaded cor- 
rectly, you can list it. You should see one line, line 0, with a 
SYS command (SYS 2061). Simply type RUN and you'll have 
Screen-80. To disable the program and return to normal 40- 
column mode, press RUN/STOP-RESTORE; typing SYS 710 
and pressing RETURN will reenable Screen-80. 

You can make a backup copy of the program by simply 
saving it as you would any BASIC program: 

SAVE "filename",^ (for disk) 
SAVE "filename" (for tape) 

To begin programming in 80 columns, just type NEW. 
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Screen-80 is still in memory, but now the bothersome line 
you saw earlier has been erased. 

Using 80 Columns 

Once you enter 80-column mode, the first thing you're likely 
to notice is the smaller size characters. Since increasing the 
size of the screen is impossible, adding 40 more columns to 
the 64 makes it necessary to halve the size of each character. 
Some televisions may not produce a clear enough picture to 
make these smaller characters readable, so you may find it 
difficult to read text in 80 columns. We recommend using a 
video monitor with the color turned off. You may want to 
change the character set to suit your personal taste or needs. 
"Custom-80" (discussed later in the article) is designed to let 
you do just that. 

Screen-80 provides a different cursor than does the nor- 
mal 40-column mode. Rather than a blinking block, it uses an 
underline character; like the normal cursor, it can move any- 
where on the screen. In fact, you can use all the cursor control 
keys, just as you would normally, to insert or delete, home the 
cursor, clear the screen, or create BASIC program lines. 

Both uppercase/graphics and lower /uppercase modes are 
supported in Screen-80, but you cannot toggle between these 
modes with the SHIFT-Conunodore key combination. Instead, 
you can put the screen editor in lower/uppercase mode by 
pressing the CTRL and N keys simultaneously, or by printing 
CHR$(14). (You can do this either through a program, or in 
direct mode. Simply type PRINT CHR$(14) in direct mode and 
the display changes to lower/uppercase.) To return to 
uppercase/graphics mode, print CHR$(142) to the screen, 
again either through a program or in direct mode. These 
methods affect only characters printed after these commands. 
Thus, you may have both sets (for example, graphics and 
lowercase) on the screen at the same time for increased 
programming flexibility. 

You can change the color of the background, text, or bor- 
der by simply POKEing the appropriate color number into 
location 53281 (for the background), location 646 (for text), or 
location 53280 (for the border). Changing text color changes 
the color of all text on the screen. If you want to change the 
background or text color during program mode, print a 
CHR$(13) after POKEing the appropriate location. Since color 
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memory is fixed on the 64, it's impossible to have true 80- 
column color. Therefore, Screen-80 does not recognize color 
codes in PRINT statements as being any different from other 
graphics characters. All printing to the screen uses the color 
specified in location 646. 

Graphics and Sound Routines 

Screen-80 can be used with sprites, high-resolution graphics, 
and sound — just like the normal Commodore 64 screen. Since 
this program actually uses a hi-res screen, you can also use it 
for other graphics displays. You can even have text and hi-res 
graphics on the screen at the same time. (Check your Com- 
modore 64 Programmer's Reference Guide for more detailed 
information on how to plot points on the hi-res screen.) 

To plot points (or do anything else) to the hi-res screen, 
it's important to know how to POKE and PEEK to the screen. 
The hi-res screen for Screen-80 is located at 57344 ($E000). 
Since this screen memory shares addresses with ROM, you 
may POKE graphics safely to the screen, but attempting to 
PEEK from the screen will give you values from the ROMs. 
To get the equivalent of PEEKing these screen locations, type 
in and run the following routine. Make sure Screen-80 is al- 
ready in memory. 

10 FORT= 49152T049175 :READE:POKET,E:NEXT:POKE785,0 

iPOKE786,192 
20 DATA 32,247,183,120,162,53,134,1,160,0 
30 DATA 177,20,162,55,134,1,88,168,169,0 
40 DATA 32,145,179,96 

Instead of using the normal PRINT PEEK {location), use: 
PRINT USR {location) 

The value returned is the content of the specified screen loca- 
tion. Technical note: This routine is completely relocatable. Sim- 
ply change the range of the FOR-NEXT loop and the values 
POKEd into addresses 785 and 786 in line 10 to match the 
routine's new location. Notice that the values POKEd into 785 
and 786 are in low byte /high byte format. 

Using sprites in Screen-80 requires that all sprite data be 
kept within the same 16K block as the hi-res screen. Locations 
49152 ($C000) to 53247 ($CFFF) are perfect places to put 
sprite data. The sprite pointers for Screen-80 are located at 
53248+1016 (54264) to 53248+1023 (54271). To cause sprite 
to get its data from 49152 ($C000), put a zero into location 
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53248+1016 (54264), Since POKEs to this area of memory are 
normally intercepted by the I/O chip, you must disable inter- 
rupts and I/O to put a value into these locations. The follow- 
ing lines will put a sprite onto the 80-column screen. Type it 
in and run it to see the effect. 

10 V=53248 

20 POKE V, 100: POKE V+1,100 
30 POKE V+39,2 

40 POKE 56334, PEEK(56334)AND254 

50 POKE 1,PEEK(1)AND251 

60 POKE 53248+1016,0 

70 POKE 1,PEEK(1)0R4 

80 POKE 56334, PEEK( 56334 )0R1 

90 POKE V+21,1 

Creating sound from within Screen-80 is done exactly the 
same way as from the normal screen. In fact, since you POKE 
the information to the SID chip (in the I/O area) to create 
sound, you don't have to disable interrupts or do any bank 
switching, as was necessary for hi-res graphics or sprites. The 
normal POKEs will do. 

Using Other Programs with Screen-80 
This program is designed to intercept any calls to the normal 
Kemal PRINT routine ($FFD2). Software which bypasses this 
routine or POKEs directly to the screen will not work correctly 
with Screen-80. An example of a program which bj^asses the 
PRINT vector is the DOS wedge program (on the TEST/DEMO 
disk which comes with Commodore's 1541 disk drives). Fortu- 
nately, this problem can easily be fixed by changing all 
PRINTS to pass through the standard vector. The routine be- 
low, when used in place of the normal DOS boot program 
("C-64 Wedge"), changes these references. 

10 IP A=0 THEN A=l: LOAD "DOS 5.1 ",8,1 
20 FOR 1=1 TO 7: READ A: POKEA, 210 : POKE A+1,255:NEXT 
30 DATA 52644,52650,52712,52726,52752,52765,53075 
40 SYS 52224 

With these changes, the DOS support program will work with 
Screen-80. 
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Programs which depend on sprites should be avoided, as 
should programs which move screen memory or otherwise 
change the normal configuration of the 64. 

Speed-Script, COMPUTEI's popular word processing pro- 
gram, does not use the PRINT vector at $FFD2 to update the 
screen, so it's incompatible with Screen-80. Sorry. 

Custom-80: Creating Your Own Character Set 
Program 2, Custom-80, allows you to create your own charac- 
ter set for use with Screen-80. It's easy to use and requires a 
joystick plugged into port 2. 

Custom-80 "borrows" the character set from Screen-80 
and then moves it to a safe location in memory for editing. 
After editing, you can return the custom characters to the 
Screen-80 program, or save your new character set to disk or 
tape. Like Screen-80, it's in MLX format. After you've loaded 
and run the MLX program, enter these two numbers for start- 
ing and ending addresses: 

Starting address: 49152 
Ending address: 51245 

Then begin typing in Program 2. Once you're finished, save a 
copy to tape or disk, turn your computer off, then on again. 
To load Custom-80, type: 

LOAD"CUSTOM-80",8,1 (for disk) 
LOAD"CUSTOM-80",1,1 (for tape) 

(This assumes you used CUSTOM.-80 for the filename. Note 
that Custom-80 requires the ,1 notation, unlike Screen-80.) 

After loading Custom-80 into memory, type NEW to reset 
the BASIC pointers. Next, load Screen-80 into memory and 
tfpe SYS 49152. This puts you in Custom-80 and, at the same 
time, accesses the character set included with Screen-80. 

The Screen-80 character set is displayed in the lower half 
of the screen, where the character being edited is framed by a 
yellow cursor. In the upper-left comer of the screen, the 
character is enlarged for editing; brief instructions are provided 
to the right. 

Customizing Characters 

You can choose which character you want to edit by moving 
the yellow cursor around the bottom display using either the 
joystick or the cursor keys. The cursor keys are faster. The 
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flashing blue square in the upper-left display indicates the cur- 
rent pixel in the character you are editing. To set the pixel, 
press the fire button on the joystick. If it was blank, it be- 
comes filled. Hitting the fire button again blanks the pixel. 

Press SHIFT and CLR/HOME to clear all the pixels in the 
character you're editing. (This will not affect the characters 
previously edited.) To home the cursor to the first character, 
press CLR/HOME without pressing SHIFT. 

You can copy a character from one position to another, by 
pressing the f 1 key to store the current character into the 
buffer. Move the yellow cursor to the new position of the 
character and press f7 to retrieve it from the buffer. 

Pressing the S key saves the character set to tape or disk 
as a short program file. It can be loaded back into memory by 
hitting the the L key. When loading or saving, you'll first be 
asked for the name of the file, then asked to press T for tape 
or D for disk. If an error occurs during a disk operation, the 
program will display the message. 

If you wish to make the new character set a permanent 
part of Screen-80, press X. This puts the redefined character 
set back into Screen-80 and exits to BASIC. You can then save 
the new version of Screen-80 to disk with the redefined 
characters already in the program by entering: 

SAVE7i7e«fl/«e",8 (for disk) 
SAME" filename",! (for tape) 

where filename is your new name for Screen-80. (You'll prob- 
ably want to scratch the old version of Screen-80 to prevent 
any possible confusion.) The next time you run Screen-80, 
you'll have your new character set in the program. 

If you wish to use various character sets with Screen-80, 
you should save the character sets to tape or disk with 
Custom-80's S option, then load the individual character sets 
by using Program 3 while in Screen-80. This program loads 
the new character set into Screen-80 after it's activated. When 
the program prompts you for the name of the character set 
you want to load, enter the filename, comma, and the number 
of the device you want to load the character set from. Use 8 
for disk, 1 for tape. 

One important note: You cannot SYS to Custom-80 from 
Screen-80. You must press RUN/STOP-RESTORE to leave 
Screen-80 before typing SYS 49152 to run Custom-80. 
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How It Works 

First, Custom-80 performs a block memory move of the 
character set data from Screen-80 to location 12288 ($3000 in 
hex). This is done to make it easier to display the character set 
at the bottom of the screen. 

Next, a raster interrupt splits the screen to show both the 
redefined character set and the normal character set. The 
instructions and the enlarged character are printed on the top 
half of the screen. The enlarged character is a 4 X 8 matrix of 
reverse SHIFT-Os, Before entering the main loop, all variables 
are initialized. 

The main loop has two major routines. The first one 
checks the joystick and keyboard. If a key is pressed, the 
appropriate flag is set. Pressing X sends the program to the 
routine that moves the character set back into Screen-80. The 
S key saves a character set, while the L key loads a character 
set. 

The second routine prints the enlarged character on the 
screen. If any flags were set, this routine handles them. It 
takes care of the save-to-buffer routine, the get-from-buffer 
routine, the clear-character routine, and the routine that han- 
dles the flashing of the blue cursor in the enlarged character. 

Program 1. Screen-80 

For easy entry of the next two machine language programs, be sure to use "The Machine 
Language Editor: MIX," Appendix D. 

49152 :0H, 008, 000, 000, 158, 050, 227 

49158 : 048 , 054 , 049 , 000 , 000 , 000 ,157 

49164 : 160, 044, 185, 065, 008, 153, 115 

49170 : 198, 002, 136, 192, 255, 208, 241 

49176 : 245, 160, 000, 169, 160, 133, 123 

49182 : 252, 132, 251, 169,008, 133, 207 

49188 : 254, 169, 109, 133, 253, 177, 107 

49194 : 253 ,145,251, 200 , 208 , 249 , 068 

49200 : 165 , 252 , 201 , 173 , 240 , 007 , 062 

49206 :230, 254, 230, 252, 076, 042, 114 

49212 : 008, 076, 198, 002, 169, 054, 055 

49218 : 133, 001, 032, 000, 160, 169,049 

49224 :055, 133, 001, 096, 072, 169, 086 

49230 : 054, 133, 001, 104, 032, 028, 174 

49236 : 162, 072, 169, 055, 133, 001, 164 

49242 : 104 , 096 , 072 , 169 , 054, 133 , 206 

49248 :001, 104, 032, 148, 161, 072, 102 

49254 : 169, 055, 133,001,104,096,148 

49260 : 169, 090, 141, 250, 255, 169, 158 

49266 : 169, 141 , 251 , 255 , 173 , 002 , 081 
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49272 : 221 , 009 , 003 , 141 , 002 , 221 , 205 

49278 : 169, 252 , 045 , 000 , 221 , 141 , 186 

49284 : 000 , 221 , 169 , 032 , 013 , 017 , 072 

49290 : 208, 141, 017, 208, 169,072,185 

49296 : 141, 024, 208, 169, 000, 141, 059 

49302 : 244, 173, 169, 011, 141, 134, 254 

49308 :002 , 169 ,000 , 141 , 243 , 173 , 116 

49314 : 133, 212, 141, 236, 173, 169, 202 

49320 : 015, 141, 033, 208, 169, 015, 237 

49326 : 141, 032, 208, 032, 244, 160,223 

49332 :032, 003, 164, 169, 210, 141, 131 

49338 1038, 003 , 169 , 002 , 141 , 039 , 066 

49344 : 003, 169, 226, 141, 036, 003, 002 

49350 : 169 , 002 , 141 , 037 , 003 , 032 , 070 

49356 :099 , 160 , 096 , 160 , 000 , 185 , 136 

49362 1116,160,141,227,173,032,035 

49368 :042 , 162 , 200 , 192 , 129 , 208 ,125 

49374 1 242 , 096 , 147 , 013 , 029 , 029 ,010 

49380 : 029 , 029 , 029 , 029 , 029 , 029 , 146 

49386 :029, 029, 029, 029, 029, 029, 152 

49392 5029,029,029,029,029,029,158 

49398 : 029, 029, 029, 029, 056, 048, 210 

49404 : 032 , 067 , 079 , 076 , 085 , 077 , 156 

49410 :078, 083, 032, 070, 079, 082, 170 

49416 5032,084,072, 069, 032, 067, 108 

49422 S079, 077, 077, 079, 068, 079, 217 

49428 : 082 , 069 , 032 , 054 , 052 , 017 , 070 

49434 1017,157,157,157,157,157,060 

49440 : 157, 157, 157, 157, 157, 157, 206 

49446 : 157, 157, 157, 157, 157, 157, 212 

49452 : 157, 157, 157, 157, 157, 066, 127 

49458 : 089 , 032 , 071 , 082 , 069 , 071 , 208 

49464 : 071 , 032 , 080 , 069 , 069 , 076 , 197 

49470 : 069, 017, 017, 157, 157, 157, 124 

49476 : 157, 157, 157, 157, 157, 157,242 

49482 :157, 157, 157, 157, 157, 157, 248 

49488 : 065 , 078 , 068 , 032 , 075 , 069 , 211 

49494 : 086 , 073 , 078 , 032 , 077 , 065 , 241 

49500 : 082 , 084 , 073 , 078 , 160 , 000 , 057 

49506 ! 173, 033, 208, 041, 015, 170, 226 

49512 : 173, 134, 002, 010, 010, 010, 187 

49518 : 010, 141, 237, 173,138,013,054 

49524 : 237, 173, 032, 058, 169, 153, 170 

49530 : 000 , 208 , 153 , 000 ,209,153,077 

49536 : 000 , 210 , 200 , 008 , 032 , 074 , 140 

49542 : 169, 040, 208, 216, 160, 231, 134 

49548 :032, 058, 169, 153, 000, 211, 251 

49554 :032, 074, 169, 136, 192, 255, 236 

49560 : 208 , 242 , 096 , 072 , 169 , 001 , 172 

49566 : 141 , 244, 173 , 104 , 032 , 042 ,126 
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49572 : 162 , 169 , 000 , 141 , 244 , 173 , 029 

49578 .-165,198,240, 252, 120, 032, 153 

49584 : 180, 229, 201, 131, 208, 016, 117 

49590 : 162, 009, 120, 134, 198, 189, 226 

49596 : 230 , 236 ,157,118, 002 , 202 , 109 

49602 : 208 , 247 , 240 , 228 , 201 , 013 , 051 

49608 : 208 , 209 , 160 , 007 , 032 , 058 , 106 

49614 : 169, 177, 251,077, 223, 173, 252 

49620 : 145, 251, 032, 074, 169, 160, 019 

49626 : 079, 132, 208, 032, 058, 169, 128 

49632 : 177 , 209 , 201 , 032 , 208 ,003 , 030 

49638 : 136, 208, 244, 200, 132, 200, 070 

49644 : 160, 000, 132, 21 1,132, 21 2, 059 

49650 : 165, 202, 048, 060, 165, 202, 060 

49656 : 133, 211, 197, 200, 144, 052, 161 

49662 : 176, 094, 165, 153, 208, 014, 040 

49668 : 165 , 009 , 133 , 202 , 173 , 222 , 140 

49674 : 173, 133, 201, 133, 214, 076, 172 

49680 : 190 , 161 , 032 ,074 , 169 , 076 , 206 

49686 : 102 , 241 , 160 , 007 , 032 , 058, 110 

49692 : 169, 177, 251, 077, 223, 173, 074 

49698 z 145, 251, 032, 074, 169,076,013 

49704 : 062, 161, 152, 072, 138, 072, 185 

49710 : 165, 208, 240, 230, 032, 058, 211 

49716 : 169, 164, 211, 177,209,133,091 

49722 1215,032,074,169,041,063,140 

49728 : 006 , 215 , 036 , 215 , 016 , 002 , 042 

49734 :009, 128, 144,004, 166, 212,221 

49740 : 208 , 004 , 112 , 002 , 009 , 064 , 219 

49746 :032,074, 169, 230, 211,032,062 

49752 : 132, 230, 196,200,208,026,056 

49758 : 169,000, 133, 208, 169,013,018 

49764 : 166 , 153 , 224 , 003 , 240 ,006 , 124 

49770 : 166, 154, 224, 003, 240, 003, 128 

49776 :032, 042, 162, 169, 013, 032, 050 

49782 :074, 169, 133, 215, 104, 170, 215 

49788 : 104, 168, 165, 215, 201, 222, 175 

49794 : 208 , 002 ,169,255, 024 , 096 , 116 

49800 : 072 , 165 , 154 , 201 , 003 , 208 , 171 

49806 : 004 , 104 , 076 , 042 , 162 , 076 , 094 

49812 : 213 , 241 , 072 , 141 , 227 , 173 , 191 

49818 : 152 , 072 , 138, 072 , 169 , 000 , 245 

49824 : 141, 235, 173, 032, 070, 162, 205 

49830 : 032 , 068 , 168 , 032 , 146 , 168 , 012 

49836 : 104, 170, 104, 168, 104, 096, 150 

49842 : 173, 227, 173, 032, 132, 230, 121 

49848 : 208, 006, 169, 001, 141, 235, 176 

49854 : 173 , 096 , 173 , 227 , 173 , 201 , 209 

49860 : 032, 144, 003, 076, 097, 162, 198 

49866 : 076 , 194 , 162 , 201 , 096 , 176 , 083 
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49872 : 023, 201, 064, 176, 003, 076, 239 
49878 : 174, 162 , 201 , 128, 240, 082 ^ 177 
49884 :056, 173, 227, 173, 233, 064, 122 
49890 :141, 227, 173,076, 174, 162, 155 
49896 : 201 , 12 7 , 144 , 009 , 240 , 044 , 229 
49902 : 201, 160, 144,060,076, 149,004 
49908 : 162, 056, 173, 227, 173, 233, 244 
49914 : 032, 141, 227, 173, 076, 174, 049 
49920 : 162 , 201 , 192 , 176 , 012 , 056 , 031 
49926 : 173, 227, 173, 233, 064, 141, 249 
49932 : 227, 173, 076, 174, 162, 024, 080 
49938 : 173, 227, 173, 105, 128, 141, 197 
49944 : 227, 173, 173, 243, 173, 240, 229 
49950 : 004 , 206 , 243 , 173 , 096 , 173 , 157 
49956 : 241 ,173,208,005,169,000,064 
49962 : 141 , 242 , 173 , 096 , 173 , 243 , 086 
49968 : 173 , 005 , 212 , 240 , 035 , 173 , 118 
49974 : 227 , 173 , 201 , 032 , 176 , 041 , 136 
49980 : 201 , 013 , 240 , 110 , 201 , 020 , 077 
49986 : 240 , 004 , 165 , 212 , 208 , 013 , 140 
49992 1173,243,173,208,008,169,022 
49998 :001, 141, 235, 173, 076, 078, 014 
50004 : 163 , 076 , 028 , 163 , 173 , 241 , 160 
50010 : 173, 208, 005, 169, 000, 141, 018 
50016 : 242 , 173 , 076 , 066 , 163 , 173 , 221 
50022 : 227 , 173 , 201 , 141 , 240, 066 , 126 
50028 : 201 , 148 , 208 , 012 , 165 , 212 , 030 
50034 : 208 , 008 , 169 , 001 , 141 , 240 , 113 
50040 : 173 , 076 , 066 , 163 , 056 , 173 , 059 
50046 .-227,173,233,064,141,227,167 
50052 : 173, 076, 028, 163, 173, 243, 220 
50058 : 173, 208, 017, 169, 000, 141, 078 
50064 : 243, 173, 165, 212, 208, 011, 132 
50070 : 169, 000, 141, 242, 173, 076, 183 
50076 : 058 , 163 , 206 , 243 , 173 , 169 , 144 
50082 : 001 , 141 , 242 , 173 , 169 , 000, 120 
50088 :141 , 235 , 173 , 076 , 186 , 163 , 118 
50094 : 169, 001, 141, 235, 173, 169, 038 
50100 : 000, 141, 240, 173, 133, 212, 055 
50106 : 173,227, 173, 201,032, 176, 144 
501 1 2 : 102 , 201 , 008 , 208 , 005 , 160 , 108 
50118 : 128 , 140 , 145 , 002 , 201 , 009 , 055 
50124 : 208 , 005 , 160 , 000 , 140 , 145 , 094 
50130 : 002 , 201 , 013 , 208 , 005 , 072 , 199 
50136 :032 , 053 , 165 , 104 , 201 , 014 , 017 
50142 : 208, 005, 160, 001, 140, 236, 204 
50148 : 173 , 201 , 017 , 208 , 008 , 238 , 049 
50154 :222, 173,072,032, 206, 164,079 
50160 : 104, 201, 018, 208, 008, 160, 171 
50166 : 001, 140, 242, 173, 140, 241, 159 
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50172 : 173, 201, 019, 208, 017, 160, 006 

50178 : 000, 132, 009, 140, 222, 173, 166 

50184 : 072 , 032 , 206 , 164 , 169 , 240 , 123 

50190 : 141, 223, 173, 104, 201, 029, 117 

50196 : 208 , 007 , 230 , 009 , 072 , 032 , 066 

50202 : 210, 164, 104, 201 , 020, 208, 165 

50208 :005 , 072 , 032 ,092 , 165 , 104 , 246 

50214 : 096 , 201 , 141 , 208 , 005 , 072 , 249 

50220 : 032, 053, 165, 104, 201, 142, 229 

50226 : 208, 005, 160, 000, 140, 236, 031 

50232 : 173, 201, 145, 208, 008, 206, 229 

50238 : 222, 173, 072, 032, 206, 164, 163 

50244 : 104 , 201 , 146 , 208 , 008 , 160 , 127 

50250 : 000 , 140 , 242 , 173 , 140 , 241 , 242 

50256 : 173 , 201 , 147 , 208 , 005 , 072 , 118 

50262 : 032 , 003 , 164 , 104, 201 , 148 , 226 

50268 : 208 , 005 , 072 , 032 , 080 , 166 , 143 

50274 : 104, 201, 157, 208, 007, 198, 205 

50280 : 009, 072, 032, 210, 164, 104, 183 

50286 :096,032,058, 169, 169,000, 122 

50292 : 133, 251, 169, 224, 133, 252, 254 

50298 : 169 , 000, 141 , 225 , 173 , 141 , 203 

50304 1 226 , 173 , 141 , 036 , 164 , 169 , 013 

50310 : 224, 141, 037, 164, 169, 000, 101 

50316 : 170, 168, 138, 153, 255, 255, 255 

50322 : 136, 208, 249, 238, 037, 164, 154 

50328 :173 , 037 ,164 , 201 , 255 , 208 , 166 

50334 ; 239, 160, 064, 169, 000, 153, 175 

50340 : 000, 255, 136, 016, 250, 169, 222 

50346 1000,133,009, 141, 222, 173, 080 

50352 : 169, 240, 141, 223, 173, 173, 015 

50358 : 244 , 173 , 240 , 006 , 160 , 007 , 244 

50364 : 169, 240, 145, 251, 162, 024, 155 

50370 : 024, 189, 196, 169, 105, 212, 065 

50376 : 141, 107, 164, 189, 170, 169, 116 

50382 : 141 , 106, 164, 169,032 , 160, 210 

50388 :079, 153, 255, 255, 136, 192, 002 

50394 : 255 , 208 , 248, 202 , 224 , 255 , 074 

50400 : 208 , 224 , 032 , 210 , 164 , 032 , 070 

50406 : 074 , 169 , 096 , 169 , 000 , 141 , 1 11 

50412 : 226 , 173 , 165 , 009 , 074 , 010 , 125 

50418 :046, 226, 173,010,046,226, 201 

50424 : 173, 010, 046, 226, 173, 141, 249 

50430 : 225, 173, 172, 222, 173, 185, 124 

50436 :118, 169, 133, 251, 024, 185, 116 

50442 : 144, 169, 109, 226, 173, 133, 196 

50448 :252 , 024, 173 , 225 , 173 , 101 , 196 

50454 1251,133,251,169,000,101,159 

50460 : 252, 133, 252, 024, 165, 252, 082 

50466 : 105, 224, 133, 252, 165,009, 154 
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50472 :041, 001, 240, 008, 169, 015, 002 
50478 : 141 , 223 , 173 , 076 , 205 , 164 , 004 
50484 : 169 , 240 , 141 ,223,173, 096 , 070 
50490 : 169, 255 , 133 , 202 , 165 , 009 , 223 
50496 : 133 , 211 , 048 , 014 , 201 , 080 ,239 
50502 : 144, 021, 169, 000, 133, 009, 034 
50508 : 238 , 222 , 173 , 076 , 241 , 164 , 166 
50514 : 230, 009, 206, 222, 173,048,202 
50520 : 024, 169, 079, 133, 009, 173, 163 
50526 : 222, 173, 133, 214, 048, 013, 129 
50532 : 201 , 025 , 144 , 012 , 206 , 222 , 142 
50538 : 173, 032, 135, 167, 076, 008, 185 
50544 : 165 , 238 , 222 , 173 , 169 , 001 , 056 
50550 : 141, 234, 173, 173, 244, 173, 232 
50556 : 240 , 015 , 160 , 007 , 032 , 058 , 124 
50562 : 169, 177, 251, 077, 223, 173, 176 
50568 : 145, 251 ,032,074,169,174,213 
50574 : 222, 173, 189, 170, 169, 133, 174 
50580 : 209 , 024 , 189 , 196 , 169 , 105 , 016 
50586 : 212, 133, 210, 032, 168, 168, 053 
50592 :096, 238, 222, 173, 169, 000, 034 
50598 : 133 , 009, 141 , 243 , 173 , 141 , 238 
50604 : 242 , 173 , 141 ,241,173, 032 ,150 
50610 : 210, 164, 173, 033, 208, 041, 239 
50616 :015 , 205 , 246 , 173 , 240 , 003 , 042 
50622 :032, 244, 160, 173,033, 208,016 
50628 : 141 , 246 , 173 , 096 , 032 , 058 , 174 
50634 : 169 , 169 , 001 , 141 , 244, 173 , 075 
50640 : 165 , 009 , 208 , 003 , 076 , 066 , 223 
50646 : 166, 160 , 007 ,177,251, 077 , 028 
50652 : 223, 173, 145, 251, 056, 165, 209 
50658 : 251, 233, 008, 133, 253, 165, 245 
50664 : 252 , 233 ,000 , 133 , 254 , 165 , 245 
50670 : 009 , 041 , 001 , 208 ,025, 160, 170 
50676 :007, 177, 251, 041, 240, 074, 010 
50682 : 074 , 074 , 074 , 141 , 2 28 , 173 , 246 
50688 : 177 , 253 , 041 , 240 , 013 , 228 , 184 
50694 : 173, 145, 253, 136, 016, 233, 194 
50700 : 172 , 222 , 173 , 200, 024 , 185 , 220 
50706 : 144, 169, 105, 224, 141 , 238, 015 
50712 : 173 , 056 , 185 , 118 , 169 , 233 , 1,90 
50718 :001 , 141 , 230, 173 , 173 , 238 , 218 
50724 : 173, 233, 000, 141, 231, 173, 219 
50730 : 169 , 008 , 141 , 229 , 173 , 160 , 154 
50736 :004, 173, 230, 173, 141, 222, 223 
50742 I 165 , 173 , 231 , 173 , 141 , 223 , 136 
50748 : 165 , 056 , 169 , 080 , 229 , 009 , 000 
50754 :074, 105,000, 170,024,008,191 
50760 : 040 , 046 , 255 , 255 , 008 , 056 , 220 
50766 : 173 , 222 , 165 , 233 , 008 , 141 , 252 
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50772 :222, 165, 173, 223, 165, 233, 241 

50778 : 000 , 141 , 223 , 165 , 202 , 208, 005 

50784 : 231 , 136 , 240 , 004 , 040 , 076 , 055 

50790 : 197 , 165 , 040 , 206 , 230 , 173 , 089 

50796 : 208 , 003 , 206 , 231 , 173 , 206 , 111 

50802 : 229 , 173 , 208, 185 , 160 , 007 , 052 

50808 :177, 251, 077, 223, 173, 145, 142 

50814 : 251, 174, 222, 173, 189, 170, 025 

50820 : 169 , 133 , 253 , 024 , 189 , 196 , 072 

50826 : 169, 105, 212, 133, 254, 056, 043 

50832 : 169 , 079 , 229 , 009 , 170 , 164 , 196 

50838 :009, 177, 253, 136, 145, 253, 099 

50844 : 200 , 200 , 202 , 224 , 255 , 208 , 165 

50850 1244,169,032,160,079,145,223 

50856 : 253, 198, 009, 032, 210, 164, 010 

50862 : 169, 000, 141, 234, 173, 032, 155 

50868 : 074 , 169 , 169 , 000 , 141 , 244 , 209 

50874 : 173, 096, 032, 058, 169, 172, 118 

50880 : 222 , 173 , 200, 056 , 185 , 118 , 122 

50886 : 169, 233, 008, 133, 253, 185, 155 

50892 : 144, 169, 233, 000, 133, 254, 113 

50898 1 024, 165 , 254, 105 , 224, 133 , 091 

50904 : 254 , 160 , 007 ,177,253, 041 , 084 

50910 :015, 240, 003, 076, 116, 167, 071 

50916 .-136,016,244,160,007,177,200 

50922 : 251 , 077 , 223 , 173 , 141 , 245 , 064 

50928 : 173, 173, 244, 173, 240, 008, 227 

50934 : 173, 245, 173, 145, 251, 076, 029 

50940 : 146 , 166 , 165 , 009 , 041 , 001 , 012 

50946 : 240, 018, 024, 165, 251, 105, 037 

50952 :008, 141, 230, 173, 165, 252, 209 

50958 : 105, 000, 141, 231*173, 076, 228 

50964 : 180 , 166 , 165 , 251 , 141 , 230 , 129 

50970 : 173, 165, 252, 141, 231, 173, 137 

50976 : 169 , 008 , 141 , 229 , 173 , 160 , 144 

50982 : 004, 173 , 230, 173 , 141 , 210 , 201 

50988 : 166, 173, 231, 173, 141, 211, 115 

50994 1 166 , 056 , 169 , 080 , 229 , 009 , 247 

51000 :074, 170, 024, 008, 040, 110, 226 

51006 : 255, 255, 008, 024, 173, 210, 219 

51012 :166, 105, 008, 141, 210, 166, 096 

51018 : 173 , 211 , 166, 105 , 000 , 141 , 102 

51024 : 211, 166, 202, 208, 231 ,136,210 

51030 : 240,004,040,076, 187, 166,031 

51036 :040, 238, 230, 173, 208, 003, 216 

51042 : 238, 231 , 173 , 206 , 229, 173 , 068 

51048 : 208 , 187 , 024 , 165 , 251 , 105 , 020 

51054 :008, 133, 253, 165, 252, 105,002 

51060 :000, 133, 254, 165, 009, 041, 206 

51066 : 001 , 240 , 031 , 160 , 007 , 177 , 226 
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041,015,010 
141,228,173 
015,013,228 
177,251,041 
136,016,227 
251,077,223 
173,173,244 
173,245,173 
210,164,032 
222,173,189 
253,024,189 
212,133,254 
229,009,170 
253,200,145 
202,224,255 
032,164,009 
000,141,234 
169,173,243 
240,003,238 
032,058,169 
158,167,024 
001,141,155 
185,064,255 
200,208,247 
238,158,167 
201,255,208 
160,000,153 
208,250,160 
255,136,192 
056,165,251 
251,165,252 
252,162,001 
141,246,167 
169,105,212 
202,189,170 
167,024,189 
212,141,250 
160,000,185 
255,255,200 
247,167,238 
208,238,162 
169,141,029 
196,169,105 
168,169,032 
255,255,136 
248,032,074 
141,000,220 
201,251,008 
000,220,040 
000,234,202 



010,010,209 
177,253,092 
173,145,243 
240,145,229 
160,007,181 
173,141,176 
173,240,132 
145,251,138 
058,169,073 
170,169,255 
196,169,128 
056,169,099 
160,078,157 
253,136,090 
208,244,201 
145,253,222 
173,032,205 
173,201,239 
243,173,189 
169,224,222 
169,224,107 
167,160,215 
153,000,149 
238,155,033 
173,155,050 
234,169,232 
000,254,083 
192,153,173 
255,208,062 
233,064,039 
233,001,063 
189,170,197 
024,189,232 
141,247,116 
169,141,090 
196,169,052 
167,162,101 
255,255,189 
208,247,138 
250,167,133 
024,189,111 
168,024,051 
212,141,112 
160,079,000 
192,255,102 
169,169,018 
173,001,042 
169,127,106 
208,009,010 
208,252,198 
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51372 :136 , 208 , 249 , 096 , 169 , 000 ,006 

51378 : 133 , 254 , 032 , 058 , 169 , 173 , 229 

51384 : 227 , 173 , 041 , 001 , 240 , 008 , 106 

51390 : 169,015, 141, 224, 173,076, 220 

51396 :095 , 168 , 169 , 240 , 141 , 224, 209 

51402 : 173, 173, 227, 173,074,010,008 

51408 :038, 254, 010, 038, 254, 010, 044 

51414 :038, 254, 133, 253, 173, 236, 021 

51420 : 173 , 208 , 014 , 024 , 169 , 222 , 006 

51426 : 101, 253, 133, 253, 169, 169, 024 

51432 :101, 254, 076, 140, 168, 024, 227 

51438 : 169, 222, 101, 253, 133, 253, 089 

51444 : 169, 171, 101, 254, 133, 254, 046 

51450 1032,074,169,096,173,235,005 

51456 :173, 208, 016, 169, 000, 141, 195 

51462 : 234, 173, 032, 168, 168., 032, 045 

5l'468 : 044 , 169 , 230 , 009 , 032 , 210 , 194 

51474 : 164,096,032, 125, 164,032, 119 

51480 :058 , 169 , 160 , 007 , 174 , 234 , 058 

51486 : 173 , 240, 005 , 169 , 000, 076 , 181 

51492 : 191 , 168 , 177 , 253 , 045 , 224 , 070 

51498 : 173, 174, 224, 173, 224, 240, 226 

51504 : 208, 004, 074, 074, 074, 074, 044 

51510 : 141, 228, 173, 173, 223, 173, 141 

51516 : 201 , 015 , 240 , 010 , 173 , 228 ,159 

51522 : 173, 010, 010, 010, 010, 141, 164 

51528 :228, 173, 169, 255, 174, 234, 025 

51534 : 173, 208, 005, 173, 223, 173, 009 

51540 : 073, 255, 049, 251, 013, 228, 185 

51546 : 173, 192, 007, 208, 008, 174, 084 

51552 : 244, 173, 240, 003, 077, 223, 032 

51558 : 173, 174, 234, 173, 208, 023, 063 

51564 : 174, 241, 173, 208, 005, 174, 059 

51570 : 242, 173, 240,013,077,223,058 

51576 :173, 072, 173, 227, 173, 009, 179 

51582 : 128, 141, 227, 173, 104, 145,020 

51588 :251 , 136 , 016 , 148 , 173 , 243 , 075 

51594 : 173, 005, 212, 240, 005, 169, 174 

51600 :000, 141, 242, 173, 032, 074, 038 

51606 : 169, 096, 164, 009, 173, 227, 220 

51612 :173, 032, 058, 169, 145, 209, 17.4 

51618 : 032, 074, 169, 096, 072, 120, 213 

51624 : 173 , 014 , 220 , 041 , 254 , 141 , 243 

51630 : 014, 220, 169 , 052 , 133 , 001 , 251 

51636 :104, 096, 072, 169, 054, 133, 040 

51642 : 001, 173, 014, 220, 009, 001, 092 

51648 : 141, 014, 220, 088, 104, 096, 087 

51654 : 072, 152, 072, 138, 072, 169, 105 

51660 : 169 , 072 , 169 , 109 , 072 , 008 , 035 

5 1666 : 032 , 074 , 169 , 120 , 076 , 071 , 240 
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n 



51672 : 254, 032, 058, 169, 104, 170, 235 
51678 : 104 , 168 , 104 , 064 , 000 , 064 , 214 
51684 : 128, 192, 000, 064, 128, 192, 164 
51690 : 000 , 064 , 128 , 192 , 000 , 064 , 170 
51696 : 128 , 192 , 000 , 064 , 128 , 192 , 176 
51702 : 000, 064, 128, 192, 000, 064, 182 
51708 :000 , 001 , 002 , 003 , 005 , 006 , 013 
51714 :007, 008, 010, 011, 012, 013, 063 
51720 8015,016,017,018,020,021,115 
51726 : 022, 023, 025, 026, 027, 028, 165 
51732 : 030 , 031 , 000 , 080 , 160 , 240 , 049 
51738 : 064 , 144 , 224 , 048 , 1 28 , 208 , 074 
51744 : 032 , 112 , 192 , 016 ,096 , 176 , 144 
51750 : 000, 080, 160, 240, 064, 144, 214 
51756 : 224 , 048 , 128 , 208 , 000 , 000 , 140 
51762 : 000 , 000 , 001 , 001 , 001 , 002 , 055 
51768 : 002, 002, 003, 003, 003, 004, 073 
51774 : 004 , 004 , 005 , 005 , 005 , 005 , 090 
51780 : 006, 006, 006, 007, 007, 007, 107 
51786 :068, 170, 170, 174, 138, 138, 164 
51792 : 106, 000, 196, 170, 168, 200, 152 
51798 : 168, 170, 196, 000, 206, 168, 226 
51804 : 168 , 174 , 168 , 168 , 206 , 000 , 208 
51810 : 228, 138,136,234,138,138,086 
51816 : 132, 000, 174, 164, 164, 228, 198 
51822 s 164, 164, 174,000, 234,042, 120 
51828 : 042 , 044 , 042 , 170 , 074 , 000 ,232 
5 1834 : 138 , 142 , 142 , 138 , 138 , 138 , 1 90 
51840 : 234, 000, 206, 170, 170, 170, 054 
51846 : 170 , 170 , 174 , 000 , 196 , 170 , 246 
51852 : 170, 202, 138, 138, 132, 002, 154 
51858 : 198 , 168 , 168, 196 , 162 , 162 , 176 
51864 : 172, 000, 234, 074, 074, 074, 012 
51870 1074,074,078,000,170,170,212 
51876 4170,170,174,174,074,000,158 
51882 : 170, 170, 074, 068, 068, 164, 116 
51888 : 164 , 000 , 230 , 036 , 068 , 068 ,230 
51894 : 068, 132,230,000,070,162,076 
51900 : 130, 194, 130, 130, 230, 000, 234 
51906 :032, 114,036, 047,036,034, 237 
51912 : 032 , 032 , 004 , 004 , 004 , 004 , 024 
51918 :004, 000, 004, 000, 160, 170, 032 
51924 : 014 , 010 , 014 , 010 , 000 , 000 , 004 
51930 : 074, 226, 132, 228, 036, 232, 122 
51936 :074 , 000 , 066 , 162 , 164 , 064 , 242 
51942 : 160 , 160 , 096 , 016 , 040 , 068 , 002 
51948 :130, 130, 130, 068, 040, 000, 222 
51954 : 000 , 160 , 068 , 238 , 068 , 160 , 168 
51960 : 000 , 000 , 000 , 000 , 000 , 014 , 006 
51966 : 000 , 096 , 032 , 064 , 001 , 001 , 192 
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51972 : 002 , 006 , 004 , 008 , 072 , 000 , 096 

51978 : 068, 172, 164, 164, 164, 164, 138 

51984 :078, 000, 078, 162, 036, 066, 180 

51990 : 130, 138, 228, 000, 174, 168, 092 

51996 : 238 , 034 , 034 , 042 , 038 , 000 ,158 

52002 :078, 162, 130, 196, 164, 168, 164 

52008 :072, 000, 068, 170, 170, 070, 078 

52014 : 162, 164,072,000,000,000,188 

52020 : 068 , 000 , 000 , 068 , 004 , 008 , 200 

52026 : 016, 032, 078, 128, 078, 032, 166 

52032 1016,000,132,074,034,020,084 

52038 : 036 , 064 ,132, 000 , 004 , 004 , 054 

52044 : 014 , 254 , 010 , 004 , 014 , 000 ,116 

52050 :032, 032, 032, 047, 032, 032, 033 

52056 :032, 032, 000, 015, 240, 000, 151 

52062 : 000 , 000 , 000 , 000 , 004 , 004 , 102 

52068 : 004 , 004 , 004 , 004 , 244 , 004 , 108 

52074 : 032, 032, 032, 044, 038, 034, 062 

52080 1034,034,034,034,054,028,074 

52086 : 000 , 000 , 000 , 000 ,136,136,134 

52092 :132, 132, 130, 130, 129, 241, 250 

52098 : 031 , 024 , 040 , 040 , 072 , 072 , 15 3 

52104 : 136, 136, 240, 016, 022, 031, 205 

52110 : 031, 022, 016, 016, 000, 009, 236 

52116 :015, 015, 015, 006, 240, 000, 183 

52122 : 064 , 064 , 064 , 065 , 067 , 066 , 032 

52128 :066 , 066 , 144 , 144 , 102 , 105 , 019 

52134 : 105 , 102 , 144, 144, 098, 098,089 

52140 : 146, 146, 098, 098, 242, 002, 136 

52146 : 002 , 066 , 066 , 239 , 226 , 066 , 075 

52152 :066, 002, 066, 130, 066, 130, 132 

52158 : 066, 130, 066, 130, 015, 007, 092 

52164 : 023, 099, 163, 163, 161, 001, 038 

52170 : 012, 012, 012, 012, 012, 012, 018 

52176 :012 ,012,015,000,000,000,247 

52182 : 240 , 240 , 240 , 240 , 008 , 008 , 166 

52188 : 008 , 008 , 008 , 008 , 003 ,248,252 

52194 : 161, 081, 161, 081, 161, 081, 184 

52200 : 161, 081, 015, 014, 012, 012, 015 

52206 : 172, 088, 168,088,050,050,086 

52212 : 050, 051, 050, 050, 050, 050, 033 

522 18 : 002 , 002 , 002 , 003 , 048 , 048 , 099 

52224 : 048 , 048 , 000 , 000 , 000 , 2 24 , 064 

5 2230 : 032 , 032 , 047 , 047 , 002 , 002 , 168 

52236 :002, 063, 032, 032, 032, 032, 205 

52242 : 002 , 002 , 002 , 254 , 034 , 034 , 090 

52248 :034 , 034 , 140 , 140 , 140 , 140 , 140 

52254 : 140, 140, 140, 140, 063, 063, 204 

52260 : 048 , 048 , 048 , 048 , 048 , 048 , 068 

52266 : 240 , 240 , 240, 000 , 000 , 015 , 009 
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1 

52272 :015, 015, 016, 016, 016, 016, 142 

52278 : 028, 028, 028, 252, 050, 050, 234 

52284 : 050, 062, 000, 000, 000, 000, 172 

52290 : 204 , 204 , 204 , 204 , 003 , 003 ,120 

52296 :003, 003, 064, 160, 172, 162, 124 

52302 1142,138,110,000,128,128,212 

52308 :198, 168, 168, 168, 198, 000, 216 

52314 :032,032,100,170,174,168,254 

52320 : 102, 000, 032, 064, 068, 234, 084 

52326 : 074, 070, 066, 004, 128, 132, 064 

52332 : 192, 164, 164, 164, 164, 000, 188 

52338 : 008, 040, 010, 042, 044, 042, 044 

52344 : 170, 064, 192, 064, 074, 078, 250 

52350 : 078 , 074 , 234 , 000 , 000 , 000, 000 

52356 : 196, 170, 170, 170, 164, 000, 234 

52362 : 000, 000, 198, 170, 170, 198, 106 

52368 : 130 , 1 30 , 000 , 000 , 206 , 168 , 010 

52374 : 142, 130, 142, 000, 000, 064, 116 

52380 : 234, 074, 074, 074, 078, 000, 178 

52386 :000, 000, 170, 170, 174, 174,082 

52392 :074, 000, 000, 000, 170, 170, 070 

52398 :070, 162, 162,012,006,004,078 

52404 : 228, 036, 068, 132, 230, 000, 106 

52410 :070, 162, 130, 194, 130, 130, 234 

52416 :230, 000, 032, 114, 036, 047, 139 

52422 : 036, 034, 032, 032, 004, 004, 084 

52428 : 004 , 004 , 004 , 000 , 004 , 000 , 2 20 

52434 5 160,170,014,010,014,010,076 

52440 : 000 , 000 , 074 , 226 , 132 , 228 , 108 

52446 : 036, 232, 074, 000, 066, 162, 024 

52452 :164,064, 160, 160,096,016, 120 

52458 : 040, 068, 130, 130,130,068,032 

52464 : 040 , 000 , 000 , 160 , 068 ,238,234 

5 2470 1068,160, 000 , 000 , 000 , 000 ,218 

52476 : 000, 014, 000, 096, 032, 064, 202 

52482 : 001 , 001 , 002 , 006 , 004 , 008 , 024 

52488 :072, 000, 068, 172, 164, 164, 136 

52494 : 164, 164, 078, 000, 078, 162, 148 

52500 :036, 066, 130, 138, 228, 000, 106 

52506 : 174, 168, 238, 034, 034, 042, 204 

52512 :038, 000, 078, 162 ,130,196,124 

52518 : 164, 168, 072, 000, 068, 170, 168 

52524 : 170, 070, 162, 164, 072, 000, 170 

5 25 30 : 000 , 000 , 068 , 000 , 000 , 068 , 1 86 

52536 :004, 008, 016, 032, 078, 128, 066 

52542 : 078, 032, 016, 000, 132, 074, 138 

52548 :034, 020, 036, 064, 132, 000, 098 

52554 : 004, 010, 010, 254, 010, 010, 116 

52560 : 010, 000, 196, 170, 168, 200, 056 

52566 : 168, 170, 196, 000, 206, 168, 226 
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52572 :168, 174, 168, 168, 206, 000, 208 
52578 : 228, 138, 136, 234, 138, 138, 086 
52584 : 132, 000, 174, 164, 164, 228, 198 
52590 : 164, 164, 174,000, 234,042 , 120 
52596 :042 , 044 , 042 , 170 ,074 , 000 ,232 
52602 : 138, 142, 142, 138, 138, 138, 190 
52608 : 234, 000, 206, 170, 170, 170, 054 
52614 : 170, 170, 174, 000, 196, 170, 246 
52620 : 170, 202, 138, 138, 132, 002, 154 
52626 : 198, 168, 168, 196, 162, 162, 176 
52632 :172, 000, 234, 074, 074, 074, 012 
52638 :074,074,078,000,170,170,212 
52644 : 170, 170, 174, 174, 074, 000, 158 
52650 : 170, 170,074,068,068,164,116 
52656 :164, 000, 226, 034, 066, 079, 233 
52662 : 066 , 1 30 , 2 26 , 002 , 066 , 1 30 , 034 
52668 :066 , 130 , 066 , 130 , 066 , 130 ,008 
52674 1082,169,084,162,089,164,176 
52680 :082, 169, 012, 012, 012, 012, 243 
52686 :012, 012, 012, 012, 015, 000, 013 
52692 : 000 , 000 , 240 , 240 , 240 , 240 , 148 
52698 : 008 , 008 , 008 , 008 , 008 , 008 , 010 
52704 : 008, 248, 161, 081, 16 1,081, 196 
52710 : 161,081, 161,081,004,009,215 
52716 : 002 , 004 , 169 , 082 , 164 , 089 , 234 
52722 : 050, 050, 050, 051, 050, 050, 031 
52728 :050, 050, 002, 002, 002, 003, 101 
52734 : 048 , 048 , 048 , 048 , 000 , 000 , 1 90 
52740 :000, 224, 032, 032, 047, 047, 130 
52746 : 002, 002, 002, 063, 032, 032, 143 
52752 : 032, 032, 002, 002, 002, 254, 084 
52758 :034, 034, 034, 034, 140, 140, 182 
52764 : 140 , 140 , 140 , 140 , 140 , 140 , 100 
52770 : 063 , 063 , 048 , 048 , 048 , 048 , 096 
52776 : 048 , 048 , 240 , 240 , 240 , 000 , 088 
52782 : 000, 015, 015, 015, 000, 032, 123 
52788 :032, 032, 172, 108, 044, 012, 196 
52794 : 050, 050, 050, 062, 000, 000, 014 
52800 : 000, 000, 204, 204, 204, 204, 112 
52806 : 003 , 003 , 003 , 003 , 000 , 013 , 095 

Program 2. Custom-80 

49152 :169, 000, 032, 144, 255, 169, 001 

49158 > 132, 133, 178, 169, 003, 133, 242 

49164 : 179, 169, 075, 133, 251, 169, 220 

49170 :018, 133, 252, 169, 000, 133, 211 

49176 :253, 169, 048, 133, 254, 160, 017 

49182 : 000, 177 , 251 , 145 , 253 , 200, 032 

49188 :208, 249, 230, 252, 230, 254, 179 
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49194 : 165 , 252 , 201 , 023 , 208 , 239 , 106 

49200 : 169, 011, 141, 033, 208, 169, 011 

49206 : 000, 141 , 134 , 002 , 141 , 032 , 248 

49212 :208, 169, 147, 032, 210, 255, 057 

492 18 : 169 , 000 , 141 , 062 , 003 , 141 , 070 

49224 : 170, 195, 141, 160, 195, 141, 050 

49230 : 172 , 195 , 141 , 173 , 195 , 169 , 099 

49236 :008, 032, 210, 255, 169, 005, 251 

49242 : 141, 165, 195, 169, 013, 141, 146 

49248 : 248 , 007 , 169 , 007 , 141 , 039 , 195 

49254 : 208 , 169 , 001 , 141 , 021 , 208 , 082 

49260 : 169 , 000 ,168,153, 064 , 003 ,153 

49266 : 200 , 192 , 064 , 208 , 248 , 169 , 17 1 

49272 :252, 141, 064, 003, 141, 091, 044 

49278 :003, 160, 003, 169, 132, 153, 234 

49284 : 064 , 003 , 200 , 200 , 200 ,192,223 

49290 : 026 , 144 , 246 , 032 , 073 , 1 99 , 090 

49296 :032, 159, 192, 032, 198, 194, 183 

49302 :032, 248, 194, 032, 049, 194, 131 

49308 :076 , 144 , 192 , 162 , 000 , 160 , 122 

49314 :000, 024, 032, 240, 255, 173, 118 

49320 : 160, 195, 041, 001, 201, 001, 255 

49326 : 240 , 005 , 169 , 240 , 076 , 183 , 063 

49332 :192, 169, 015, 141, 163, 195, 031 

49338 : 173, 160, 195, 074, 010, 133, 163 

49344 :251, 169, 000, 133, 252, 006, 235 

49350 : 251, 038, 252, 006, 251, 038, 010 

49356 :252, 169, 048, 024, 101, 252, 026 

49362 : 133, 252, 173, 163, 195, 073, 175 

49368 :255, 141, 166, 195, 160, 000, 109 

49374 : 169, 018, 032, 210, 255, 177, 059 

49380 : 251, 045, 163, 195, 141, 162, 161 

49386 : 195 , 162 , 000 , 173 , 163 , 195 , 098 

49392 :201, 015, 240, 012, 078, 162, 180 

49398 : 195, 078, 162, 195, 078, 162, 092 

49404 : 195 , 078 , 162 , 195 , 173 , 162 , 193 

49410 : 195 , 041 , 008 , 240 , 005 , 169 , 148 

49416 :001, 076, 014, 193, 169, 000, 205 

49422 : 032 , 146 , 193 , 141 , 134, 002 , 150 

49428 :169, 207, 032, 210, 255, 173, 042 

49434 : 162 , 1 95 , 041 , 004 , 240 , 005 , 161 

49440 : 169 , 001 , 076 , 039 , 193 , 169 , 167 

49446 : 000, 232, 032, 146, 193, 141, 014 

49452 :134, 002, 169, 207, 032, 210, 030 

49458 : 255 , 173 , 162 , 195 , 041 , 002 ,110 

49464 : 240 , 005 , 169 , 001 , 076 , 065 , 100 

49470 : 193, 169, 000, 232, 032, 146, 066 

49476 : 193 , 141 , 134 , 002 , 169 , 207 , 146 

49482 :032 , 210 , 255 , 173 , 162 , 195 , 077 

49488 : 041 , 001 , 240 , 005 , 169 , 001 , 025 
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49494 : 076, 091, 193, 169, 000, 232, 079 

49500 :032, 146, 193, 141, 134, 002, 228 

49506 : 169 , 207 , 032 , 210 , 255 , 169 ,116. 

49512 1013,032,210,255,173,163,182 

49518 1195,201,015,240,012,014,019 

49524 : 162, 195, 014, 162, 195, 014, 090 

49530 : 162, 195, 014, 162,195,177,003 

49536 :251, 045, 166, 195, 013, 162, 192 

49542 : 195, 145, 251, 200, 192, 008, 101 

49548 :240, 003, 076, 222, 192, 096, 201 

49554 : 141 , 164 , 1 95 , 140 , 169 , 1 95 , 126 

49560 : 173, 170, 195, 240, 008, 169, 083 

49566 : 000 , 141 , 164 , 195 , 141 , 162 , 193 

49572 :195, 173, 172, 195, 240, 006, 121 

49578 : 173 , 162 , 195 , 153 , 178 ,002 ,009 

49584 : 173 , 173 , 195 , 240 ,006 , 185 , 124 

49590 : 178 , 002 , 141 , 162 , 195 , 204 ,040 

49596 :061 ,003 , 208 , 106 , 236 ,060 ,094 

49602 : 003 , 208 , 101 , 238 , 062 , 003 , 041 

49608 : 173 , 000 , 220 , 041 , 016 , 208 , 090 

49614 : 067 , 205 , 063 , 003 , 240 , 065 , 081 

49620 : 141 ,063 ,003 , 169 ,004,056 , 136 

49626 : 237 , 060 , 003 , 168 , 169 , 001 , 088 

49632 : 136, 240, 004, 010, 076, 224, 146 

49638 : 193, 141, 168, 195, 073, 255, 231 

49644 : 141, 167, 195, 173, 162, 195, 245 

49650 :045, 168, 195, 208, 015, 173, 022 

49656 :162, 195, 045, 167, 195, 013, 001 

49662 : 168 , 195 , 141 , 162 , 195 , 076 , 167 

49668 :021 , 194 , 173 , 162 , 195 ,045 , 026 

49674 : 167 , 195 , 141 , 162 , 195 , 076 ,178 

49680 :021, 194, 141, 063, 003, 173, 099 

49686 : 062 , 003 , 201 , 050 , 144 , 014 , 240 

49692 : 201 , 100 , 144 , 005 , 169 , 000 ,135 

49698 : 141 , 062 , 003 , 169 , 014 , 141 , 052 

49704 : 164, 195, 173, 164, 195, 172, 079 

49710 : 169, 195, 096, 206, 165, 195, 048 

49716 :208, 065, 173, 000, 220, 041, 247 

49722 : 015 , 141 , 162 , 195 , 041 , 001 , 101 

49728 :208, 003, 206, 061, 003, 173, 206 

49734 : 162 , 195 , 041 , 002 , 208 , 003 , 169 

49740 : 238,061 ,003 , 173 , 162 , 195 , 140 

49746 : 041 , 004 , 208 , 003 , 206 , 060 , 092 

49752 :003, 173, 162, 195, 041, 008, 158 

49758 : 208 , 003 , 238 , 060 , 003 ,173,011 

49764 : 162, 195, 201, 015, 240, 008, 153 

49770 : 169 , 051 , 141 , 062 , 003 , 032 , 052 

49776 :120, 194, 169, 005, 141, 165, 138 

49782 : 195 , 096 , 173 , 060 , 003 , 201 , 078 

49788 :255 , 208 , 008 , 169 ,003 , 141 , 140 



62 



Recreations and Applications 2 



49794 : 060 , 003 , 206 , 160 , 195 , 173 , 159 

49800 ! 060 , 003 , 201 , 004 , 208 , 008 , 108 

49806 : 169 , 000 , 141 , 060 , 003 , 238 , 241 

49812 :160, 195, 173, 061, 003, 201, 173 

49818 : 255, 208, 014, 169, 007, 141, 180 

49824 : 061, 003, 173, 160, 195, 056, 040 

49830 : 233 , 064, 141 , 160 , 195 , 173 , 108 

49836 :061, 003, 201, 008, 208, 014, 155 

49842 : 169 , 000 , 141 , 061 , 003 ,173,213 

49848 : 160 , 19 5 , 024 , 105 , 064 , 141 . 105 

49854 : 160, 195, 169, 016, 141, 063, 166 

49860 :003, 096, 173, 160, 195, 074, 129 

49866 : 074 , 074 , 074 , 074 , 074 , 141 , 201 

49872 :053, 003, 173, 160, 195, 041, 065 

49878 : 063, 141, 052, 003, 173, 053, 187 

49884 : 003 , 010 ,010 , 010 , 024 , 105 , 126 

49890 : 153 , 141 , 001 , 208 , 173 , 052 , 186 

49896 . :003, 010, 010, 024, 105, 055, 183 

49902 : 141 , 000 , 208 , 169 , 000 , 042 ,030 

49908 : 141 , 016 , 208 , 096 , 169 , 000 , 106 

49914 : 141 , 170 , 195 , 141 , 171 , 195 , 239 

49920 : 141 , 172 , 195 , 141 , 173 , 195 , 249 

49926 : 032 , 228 , 255 , 208 , 001 , 096 , 058 

49932 :201, 147, 208, 006, 169, 001, 232 

49938 : 141, 170, 195, 096, 201, 019, 072 

49944 : 208 , 006 , 169 , 000 , 141 , 160 , 196 

49950 : 195 , 096 , 201 , 1 57 , 208 , 008 , 1 27 

49956 :169, 255, 141, 060, 003, 076, 228 

49962 : 120 , 194 , 201 , 029 , 208 , 008 ,034 

49968 : 169 , 004 , 141 , 060 , 003 , 076 , 245 

49974 : 120 , 194 , 201 , 145 , 208 , 008 , 162 

49980 : 169, 255, 141, 061, 003, 076, 253 

49986 : 120, 194, 201, 017, 208, 008, 046 

49992 :169, 008, 141, 061, 003, 076, 018 

49998 : 120 , 194 , 201 , 088 , 208 , 003 , 124 

50004 :076, 124, 195,201,133,208,253 

50010 : 006 , 169 , 001 , 141 , 172 , 1 95 , 006 

50016 :096 , 201 , 136 , 208 , 006 , 169 , 144 

50022 : 001 , 141 , 173 , 1 95 , 096 , 201 , 141 

50028 :083, 208, 004, 032, 125, 197, 245 

50034 : 096, 201, 076, 208, 004, 032, 219 

50040 : 046 , 19 7 , 096 , 096 , 169 , 07 5 , 03 1 

50046 : 133, 251, 169, 018, 133, 252, 058 

50052 :169, 000, 133, 253, 169, 048, 136 

50058 : 133 , 254 , 160 , 000 , 177 , 253 , 091 

50064 :145, 251, 200, 208, 249, 230, 147 

50070 : 252 , 230, 254, 165 , 252 , 201 , 224 

50076 :023 , 208 , 239 , 000 , 000 , 000 ,114 

50082 :000, 000, 000, 000, 000, 000, 162 

50088 : 000 , 000 , 000 , 000 , 000 , 000 ,168 



63 



2 Recreations and Applications 



50094 : 158, 029, 029, 029, 029, 029, 221 
50100 :029 ,029 ,029 ,029 ,029 ,029 ,098 
50106 :029 ,029 ,029 , 029 , 029 , 067 , 142 
50112 ..085,083,084,079,077,045,133 
50118 : 056, 048, 013, 144,029,029,005 
50124 :029 ,029 ,029 ,029 ,067 ,076 , 207 
50130 :082, 032, 045, 032, 067, 076, 032 
50136 :069, 065, 082, 032, 067, 085, 104 
50142 : 082 , 082 , 069 , 078 , 084 ,032 , 137 
50148 :067, 072, 065, 082, 065, 067, 134 
50154 : 084 , 069 , 082 , 013 , 029 , 029 , 028 
50160 1029,029,029,029,072,079,251 
50166 :077, 069, 032, 045, 032, 071, 060 
50172 :079, 032, 084, 079, 032, 070, 116 
50178 :073, 082, 083, 084, 032, 067, 167 
50184 :072, 065, 082, 065, 067, 084, 187 
50190 : 069 , 082 , 013 , 029 , 029 , 029 , 009 
50196 : 029 ,029 ,029 ,067 ,085 ,082 , 085 
50202 : 083, 079, 082, 032, 075, 069, 190 
50208 :089 , 083 , 032 ,077 ,079 ,086 , 222 
50214 : 069 , 032 , 065 , 082 , 079 , 085 ,194 
50220 :078, 068, 032, 067, 072, 065, 170 
50226 : 082 , 032 , 083 , 069 , 084 ,013,157 
50232 :029, 029, 029, 029, 029, 029, 230 
50238 : 070 , 049 , 032 , 045 , 032 , 083 , 117 
50244 : 084 , 079 , 082 , 069 ,032 ,067 , 225 
50250 : 072 , 065 , 082 , 065 , 067 , 084 , 253 
50256 :069, 082, 032, 073, 078, 032, 190 
50262 : 066 , 085 , 070 , 070 , 069 , 082 , 016 
50268 :013 ,029 ,029 ,029 ,029 ,029 , 250 
50274 : 029 , 070 , 055 , 032 , 045 ,032 , 105 
50280 :071 ,069 ,084,032 ,067 ,072 ,243 
50286 : 065 ,082,065, 067 , 084 , 069 , 030 
50292 :082, 032, 070, 082, 079, 077, 026 
50298 : 032 , 066 , 085 , 070 , 070 , 069 , 002 
50304 :082 ,013 ,029 ,029 ,029 ,029 ,083 
50310 1029,029,088,032,045,032,133 
50316 :080, 085 ,084,032 ,082 ,069 ,060 
50322 : 068 , 069 , 070 , 073 , 078 , 069 , 061 
50328 :068, 032, 067, 072, 065, 082, 026 
50334 : 065 , 067 , 084 , 069 , 082 , 083 , 096 
50340 :032 ,073 ,078 ,013 , 029 ,029 , 162 
50346 :029, 029, 029, 029, 032, 032, 094 
50352 :083, 067, 082, 069, 069, 078, 112 
50358 1032,056,048,013,029,029,133 
50364 : 029 , 029 , 029 ,029 ,074 ,079 , 201 
50370 : 089 , 083 , 084 , 073 , 067 , 075 , 153 
50376 :032, 067, 079, 078, 084, 082, 110 
50382 : 079 , 076 , 083 , 032 , 067 , 085 ,116 
50388 :082 , 083 , 079 ,082 , 032 ,077 , 135 
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50394 : 079, 086, 069, 077, 069, 078, 164 

50400 : 084, 013 ,029 ,029 ,029,029 ,181 

50406 :029, 029, 032, 032, 065, 082, 243 

50412 1079 ,085 ,078 ,068,032 ,069 , 135 

50418 : 088 , 080 , 065 , 078 , 068 , 069 , 1 78 

50424 :068, 032, 067, 072, 065, 082, 122 

50430 : 065 , 067 , 084 , 069 , 082 , 032 , 141 

50436 :065, 078, 068, 013, 029, 029, 030 

50442 : 029, 029, 029, 029, 032, 032, 190 

50448 : 066 , 08 5 , 084 , 084 ,079,078,236 

50454 :032, 083, 069, 084, 083, 032, 149 

50460 : 065, 078, 068, 032, 082, 069, 166 

50466 : 083 , 069 , 084 , 083 , 032 , 080 , 209 

5047 2 : 07 3 , 088 , 069 , 07 6 , 083 , 000 ,173 

50478 :032 , 224 , 197 , 008 , 173 , 215 , 127 

50484 : 198 , 208 , 002 , 040 , 096 , 040 , 1 24 

50490 : 176 , 031 , 169 , 008 , 170 , 160 , 004 

50496 :000, 032, 186, 255, 173, 215, 157 

50502 : 198, 162, 199, 160, 198, 032, 251 

50508 :189, 255, 169, 000, 162, 000, 083 

50514 : 160 , 048 , 032 , 2 13 , 255 , 032 , 054 

50520 : 234, 198, 096, 032, 203, 199, 026 

50526 : 169 , 008 , 162 , 001 , 160 , 000 , 082 

50532 :032, 186, 255, 173, 215, 198, 135 

50538 : 162, 199, 160, 198, 032, 189, 022 

50544 : 255 , 169 , 000, 170 , 160 , 048 , 146 

50550 :032, 213, 255, 032, 236, 199, 061 

50556 : 096 , 032 , 224 , 197 , 008 , 173 , 086 

50562 : 215, 198, 208, 002, 040, 096, 121 

50568 :040 , 176 ,042 ,032 , 045 , 199, 158 

50574 : 169, 008, 170, 160, 255 ,032 , 168 

50580 : 186, 255, 173, 215, 198, 162, 057 

50586 : 199, 160, 198, 032, 189, 255, 163 

50592 :169, 048, 133, 252, 169, 000, 163 

50598 : 133 , 251 , 169 , 251 , 162 ,000, 108 

50604 : 160, 056, 032, 216, 255, 032, 155 

50610 : 234 , 1 98 , 096 , 032 , 203 , 199 , 1 16 

50616 :169, 008, 162, 001, 160, 000, 172 

50622 :032, 186,255, 173,215,198,225 

50628 : 162, 199, 160, 198, 032, 189, 112 

50634 ,-255,169,048,133,252,169,204 

50640 : 000, 133, 251, 169, 251, 162, 150 

50646 : 000 , 160 , 056 , 032 , 216 , 255 , 165 

50652 :032, 236, 199, 096, 160, 000, 175 

50658 : 162, 011, 024, 032, 240, 255, 182 

50664 : 169, 032, 162, 040, 032, 210, 109 

50670 : 255, 202, 208, 250, 160, 000, 033 

50676 : 162, 011, 024, 032, 240, 255, 200 

50682 : 162, 000, 189, 192, 198, 032, 255 

50688 :210, 255, 232, 224, 007, 208, 112 
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50694 


:245 


50700 


:210 


50706 


:255 


50712 


:000 


50718 


:042 


50724 


:013 


50730 


:227 


50736 


:016 


50742 


:232 


50748 


:255 


50754 


:164 


50760 


:198 


50766 


:157 


50772 


:032 


50778 


:210 


50784 


:169 


50790 


:014 


50796 


:000 


50802 


:255 


50808 


:210 


50814 


:215 


50820 


:000 


50826 


:255 


50832 


:032 


50838 


:208 


50844 


:251 


50850 


:084 


50856 


:172 


50862 


:162 


50868 


:162 


50874 


i255 


50880 


:159 


50886 


:155 


50892 


:000 


50898 


-000 


50904 


:153 


50910 


:069 


50916 


:068 


50922 


:032 


50928 


:001 


50934 


:024 
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50946 


:210 


50952 


:255 


50958 


:015 


50964 


:255 


50970 


:032 


50976 


:201 


50982 


:032 


50988 


:096 
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,162,000 
,255,138 
,168,104 
,240,243 
,201,034 
,240,065 
,201,128 
,240,219 
,072,169 
,104,032 
,032,210 
,224,000 
,032,210 
,210,255 
,255,032 
,164,032 
,198,142 
,162,011 
,162,017 
,255,202 
,198,208 
,162,011 
,162,000 
,210,255 
,245,032 
,201,068 
,208,243 
,198,024 
,011,024 
,017 ,169 
,202,208 
,078,065 
, 000 , 000 
,000,000 
,000,000 
,018,084 
,032,079 
,146,073 
,183,255 
,096,162 
,032,240 
,210,255 
,255,169 
,169,015 
,032,186 
,162,015 
,207,255 
,013,208 
,195,255 
,169,002 



,169,164 
,072,032 
,170,152 
,201,020 
,240,235 
,201,032 
,176,223 
,157,199 
,157,032 
,210,255 
,255,076 
,240,193 
,255,169 
,169,157 
,210,255 
,210,255 
,215,198 
,024,032 
,169,032 
,208,250 
,001,096 
,024,032 
,189,216 
,232,224 
,228,255 
,240,009 
,056,008 
,008,160 
,032,240 
,032,032 
,250,040 
,077,069 
, 000 , 000 
,000,000 
,000,000 
,146,065 
,082,032 
,083,075 
,041,191 
,011,160 
,255,169 
,169,150 
,000,032 
,162,008 
,255,032 
,032,198 
,032,210 
,246,169 
,032,204 
,160,199 



,032,010 
,228,179 
,201,044 
,240,200 
,201,215 
,144,219 
,224,197 
,198,053 
,210,158 
,169,061 
,014,049 
,169,072 
,032,165 
,032,171 
,202,230 
,076,234 
,160,005 
,240,065 
,032,013 
,174,139 
,160,236 
,240,089 
,198,134 
,018,091 
,240,078 
,201,102 
,076,069 
,000,218 
,255,130 
,210,034 
,096,213 
,058,186 
,000,097 
,000,204 
,000,210 
,080,250 
,018,022 
,063,224 
,208,120 
,000,158 
,018,216 
,032,076 
,189,089 
,160,009 
,192,214 
,255,169 
,255,249 
,015,116 
,255,243 
,162,064 
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50994 : 071, 032, 189, 255, 169, 015, 013 
51000 : 168, 162, 008, 032, 186, 255, 099 
51006 : 032, 192, 255, 169, 015, 032, 245 
51012 :195, 255, 096, 073, 048, 120, 087 
51018 : 169 , 127 , 141 , 013 , 220 , 169 , 145 
51024 :001, 141, 026, 208, 173, 060, 177 
51030 :003, 141, 018, 208, 169, 027, 140 
51036 : 141 ,017 , 208 , 169 , 199 , 141 , 199 
51042 : 021 , 003 , 169 , 250 , 141 , 020 , 1 90 
51048 :003 , 088 , 169 , 147 ,032 , 210 , 241 
51054 : 255, 160, 000, 169, 195, 133, 254 
51060 : 252, 169, 174, 133, 251, 177, 248 
51066 : 251, 240, 011, 032, 210. 255, 097 
51072 :200, 208, 246, 230, 252, 076, 060 
51078 : 121, 199, 169, 008, 133, 251, 247 
51084 : 169 , 006 , 133 , 252 , 165 , 251 , 092 
51090 : 133 , 253 , 165 , 252 ,024 , 105 , 054 
51096 : 212, 133, 254, 162, 000, 160, 049 
51102 : 004, 138, 145, 251, 169, 000, 097 
51108 :145, 253, 232, 200, 192, 036, 198 
51114 : 208 , 243 , 165 , 251 ,024, 105 , 142 
51120 : 040, 133, 251, 165, 252, 105, 098 
51126 : 000 , 133 , 252 , 165 , 253 ,024 , 241 
51132 :105, 040, 133, 253, 165, 254, 114 
51138 : 105, 000, 133, 254, 224, 128, 014 
51144 :208, 211, 096, 120, 169, 000, 236 
51150 : 141, 026, 208, 169, 255, 141, 122 
51156 : 013, 220, 169, 049, 141, 020, 056 
51162 : 003, 169, 234, 141, 021, 003, 021 
51168 :169, 000, 141, 021, 208, 088, 083 
51174 : 169, 147, 032, 210, 255, 096, 115 
51180 :032, 073, 199, 169, 001, 141, 083 
51186 : 021 , 208 , 169 , 004 , 141 , 136 , 153 
51192 :002, 096, 173, 018, 208, 201, 178 
51198 : 146, 208, 021, 169, 000, 141, 171 
51204 :018, 208, 169, 028, 141, 024, 080 
51210 : 208, 169, 001, 141, 025, 208, 250 
51216 :104, 168, 104, 170, 104, 064, 218 
51222 : 169 , 146 , 141 , 018 , 208 , 169 , 105 
51228 :021, 141, 024, 208, 169, 001, 080 
51234 : 141, 025, 208, 076, 049, 234,255 
51240 : 000 , 000 , 000 , 000 , 000 , 000 , 040 
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Program 3. Custom Character Loader 

For mistake-proof program entry, be sure to use 'The Automatic Proofreader," Appendix C. 

10 INPUT'TILENAME: ";N$,D :reni 205 

20 F$=N$:ZK=PEEK(53)+256*PEEK(54)-LEN(F$) rPOKE 782 

,ZK/256 :rem 180 

25 POKE781 , ZK-PEEK( 782 ) *256 : POKE780, LEN(F$ ) :SYS654 

69 :rem 39 

30 POKE780,1:POKE781,D:POKE782,0:SYS65466 :rem 177 
40 POKE780 , : POKE781 , 222 : POKE782 , 169 : SYS65493 

:rem 115 

50 CLOSEl : PRINT: PRINT" {CLR}"CHR$( 142) irem 90 
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Screen Headliner 



rn Todd Heimarck 

. This short machine language routine expands a 

I I letter to four times its normal size. The large 

character can then be used in a headline or for a 
variety of other purposes. The program is compat' 
ihle with Commodore printers and can even he 
used with "Screen-SO," the 80'column program 
which precedes this article. 



i I 



f i 
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Oversized characters can be useful — on a title screen, in a chil- 
dren's alphabet or math program, or for visually impaired 
computer users. Finding the right combination of graphics 
characters usually takes time; you have to experiment. And 
creating a whole alphabet can use up a lot of memory. 

The simplest method for displa5dng huge letters without 
experimenting or wasting memory is to PEEK the character 
generator in ROM and print a solid block (reverse space) for 
each bit that is on. If the bit is off, you print a space. The one 
major disadvantage to this method is that each character ex- 
pands to eight times its normal size. Very little space remains 
on the screen — your 64 would suddenly turn into a five- 
column screen. But by keeping in mind the idea of reading 
character ROM, we can sidestep this problem with some spe- 
cial Commodore characters. 



The Quarter-Square Solution 
Hold down the Commodore key and type IKBVDCF, These 
pi seven characters, plus a blank space, make up half of the 
' quarter-square graphics set. The other half is accessed by typ- 
ing the same keys while reverse is turned on. There are 16 dif- 
r~] ferent characters, one for each combination of quarter squares 
turned on or off. 

Quarter squares enable you to set up what amounts to a 
r~l medium-resolution screen. It's less complicated to program 
than a high-resolution screen, and has better resolution than 
the usual low-resolution character set. Instead of making 
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characters turn on and off, you control big pixels (each of 
which is one-fourth of a character). A Commodore 64 sud- 
denly has the capability to address 80 X 50 big pixels. 

The 16 characters are the starting point for the "Screen 
Headliner." The basic idea is to read the character ROM, 
translate each bit into a big pixel, and print the equivalent 
quarter-square graphics character. You can do it in BASIC with 
a lot of PEEKs and POKEs, but machine language is faster and 
more elegant. 

The program is easy to use. After entering and saving it, 
type RUN. A short machine language program is POKEd into 
memory. To make it work, you need two POKEs and a SYS: 

POKE 249,0: POKE 250,1: SYS 828 

You should see a large capital A, four characters wide and 
four deep. Now simultaneously press the Commodore and 
SHIFT keys to switch to the upper /lowercase set. Cursor up to 
the POKEs, press RETURN, and you'll see a large lowercase a. 
Now try putting a 129 into location 250; the result is the same 
character printed in reverse. 

If you've saved a copy of Headliner, type NEW to erase 
the BASIC loader program. (It won't affect the ML program, 
which is safely tucked into die cassette buffer.) Now type this in: 

1 MK=7 

5 PRINT" {CLR}"; 

10 FORX=0TO255 

20 Y=(XANDMK)*4:POKE249,Y 

25 IFXANDMKTHENPRINT" {4 UP}"; 

30 POKE250,X:SYS828 

40 NEXT 

(Note: Tape users should not save this example program; 
tape operations erase Headliner from the cassette buffer.) Type 
RUN, and the whole Commodore character set will parade 
down the screen. 

Making Letters 

The top of the large character is printed wherever the cursor 
happens to be when you SYS. The POKE to 249 determines 
how far the cursor spaces over before it begins. The number 
must be between and 35. 

Next, POKE the letter's screen code into 250. Ignore the 
ASCII value, you want the screen code — the number you use 
when POKEing a character to the screen. Numbers 1 through 
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26 are the letters A-Z, 48-57 are the characters 0-9, and so 
on. To get a reversed character, add 128 to the screen code. (You 
can find a list of screen codes in Appendix E of the Commodore 
64 User's Guide, the manual that came with your computer.) 

After you've POKEd into 249 and 250, enter SYS 828. 
The oversize character appears almost instantly. 

Three Bonuses and a Drawback 
The original version of this routine (used in two programs 
published in COMPUTEI's Gazette magazine— "Aardvark At- 
tack" a year ago, and more recently "Campaign Manager") 
figured out the shape of the large character and POKEd the 
appropriate quarter-square graphics to the screen. But Head- 
liner now PRINTS (using the Kernal PRINT routine at $FFD2) 
instead of POKEing, It's necessary to turn reverse on and off 
repeatedly to get all the quarter squares, which is a little 
cumbersome. But there are some major advantages to sending 
everything through $FFD2. 

The first advantage is that you can send large characters 
to a Commodore printer, although you need to change one 
value to print spaces instead of cursor-rights (see line 951 of 
the program listing at the end of the article). Enter this to 
make a printout: 

OPEN 4,4: CMD4: POKE 2i9,XX: POKE 250,1/1/: SYS 828 

Remember to replace xx with the location where you want to 
print, and substitute the screen code for yy. If you can, adjust 
your printer's line spacing to zero — so there's no extra space 
between the characters. When you're finished printing, 
PRINT#4:CLOSE4 properly closes the file to the printer. Un- 
fortunately, printers do not allow cursor up movements; 
you're limited to one large character per line. To get around 
this limitation, you could manually move the paper back, or 
use a screen dump program, or (if you're feeling ambitious) 
use CMD to send output to a tape or disk file and then read 
the data back into an array for dumping to the printer. 

The figure below illustrates some of the large characters 
created by a Commodore printer. The first two columns show 
upper- and lowercase letters, while the third column shows 
the large letters expanded by the printer. 
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Normal and Expanded Samples 





a 




B 


b 




C 


c 






d 1 


I> 


E 


e 





Another bonus of PRINTing rather than POKEing is that 
Screen Headliner is completely compatible with "Screen-80" 
(the 80-column program which appears in the article immedi- 
ately preceding this); you can use large letters, up to 19 per line, 
in combination with 80-column text on your Commodore 64. 

Finally, the flexibility of the PRINT command is at your 
fingertips: You can print almost anywhere on the screen, in 
any color you like (just change the cursor color). You can even 
mix large uppercase, lowercase, and graphics characters on the 
same screen, 

A slight drawback is that each line has to be followed by 
a carriage return, which means you cannot put a character at 
the right edge of the screen. Nor can you print the large charac- 
ter at the bottom of the saeen (it always sctoIIs up one line). 

How It Works 

There are two sets of POKEs in the BASIC loader program. 
The first loop (688 to 703) contains the modified ASCII values 
of the quarter-square graphics characters. Since there is no 
such thing as an ASCII value of a reversed character, the re- 
verse flag has to be turned on and off. Bit 6 of each character 
is used to signal whether or not the character is reversed; the 
number is then ANDed with $BF (191) to turn off bit 6 before 
the character is printed. 

The second loop (828 to 1006) is the machine language 
routine. It goes into the cassette buffer, but is written to be 
relocatable — if you need the cassette buffer for another ML 
program, or if you are using a Datassette, you can move the 
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routine an)rwhere else in memory (the first loop has to stay 
where it is, however). If you put it in BASIC RAM, you'll have 
to protect it from being overwritten. 

If you're interested in machine language, here's a brief 
explanation of how Headliner works. The main routine first 
checks which character set is being used and sets a zero page 
pointer accordingly. The screen code number is then mul- 
tiplied by eight and added to the pointer. Once the pointer is 
set, the bytes from character ROM are loaded in two by two. 
By alternately shifting left the bytes (ASL) and rotating left the 
accumulator (ROL), a number from to 15 is generated. This 
is used as an offset to look up the appropriate quarter-square 
graphics character in the table at 688. Bit 6 is checked (if set, 
reverse is turned on), and finally, a JSR to $FFD2 prints the 
character. The program then loops back to get the next set of 
bits. 



Screen Headliner 

For mistake-proof program entry, he sure to use "The Automatic Proofreader," Appendix C. 
5 PRINT" {CLR} PLEASE WAIT A MOMENT" : rem 153 

10 T=0 : FORJ=688TO703 : READK : T=T+K : POKE J , K : NEXT 

:rera 134 

15 IPT<>3078THENPRINT"ERROR IN DATA STATEMENTS ": ST 
OP :rem 88 

20 T=0 : FORJ=828TO1006 : READK : T=T+K : POKE J , K : NEXT 

:rem 176 

25 IFT<>20306THENPRINT"ERROR IN DATA STATEMENTS ": S 
TOP :rem 130 

30 POKE249,0 :rem 141 

688 DATA32, 188, 190, 226, 172, 225, 191, 251 :rein 148 
696 DATA187,255,161,236,162,254,252,96 :rem 158 
828 DATA 169,208,133,004,173,024 :rem 46 

834 DATA 208,041,002,240,004,169 : rem 32 

840 DATA 216,133,004,169,000,162 :rem 31 

846 DATA 003,006,250,042,202,208 :rera 28 

852 DATA 250,024,101,004,133,004 :rem 19 

858 DATA 165,250,133,003,173,014 :rem 40 

864 DATA 220,041,254,141,014,220 :rem 27 

870 DATA 165,001,041,251,133,001 : rem 23 

876 DATA 169,000,133,250,169,005 : rem 46 

882 DATA 133,002,160,000,177,003 : rem 26 

888 DATA 133,005,230,003,177,003 :rem 36 

894 DATA 133,006,230,003,198,002 :rem 36 

900 DATA 240,028,162,004,169,000 :rem 28 

906 DATA 006,006,042,006,006,042 :rem 25 

912 DATA 006,005,042,006,005,042 : rem 20 
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918 DATA 164,250,153,048,002,230 :reni 38 

924 DATA 250,202,208,232,240,210 :rem 26 

930 DATA 165,001,009,004,133,001 : rem 20 

936 DATA 173,014,220,009,001,141 rrem 28 

942 DATA 014,220,160,000,166,249 :rem 33 

948 DATA 240,008,169 : rem 229 

951 DATA 029: REM 032 IF USING A PRINTER i rem 129 

952 DATA 032,210 :rem 14 
954 DATA 255,202,208,250,169,004 :rem 45 
960 DATA 133,006,185,048,002,170 :rem 38 
966 DATA 189,176,002,133,005,041 :rem 46 
972 DATA 064,240,005,169,018,032 :rem 43 
978 DATA 210,255,165,005,041,191 :rem 46 
984 DATA 032,210,255,169,146,032 :rem 47 
990 DATA 210,255,200,198,006,208 : rem 43 
996 DATA 221,169,013,032,210,255 :rem 43 
1002 DATA 192,016,208,196,096 :rem 153 
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Reversi 

Keith Day 

This nineteenth-century game of strategy can he 
learned in minutes, hut hecoming an expert at it 
is another matter. You can play against another 
person or against the computer. You can even sit 
hack and watch the computer wage a strategic 
battle against itself. One joystick required. 



Reversi, originally a board game for two players, was first 
published ii\ London about 1888. It's as popular today as it 
was then. In fact, national and international competitions are 
held each year where thousands of players compete for fame 
and glory. 

The attraction of Reversi is that, although the rules are 
few and easy to learn, and play is very simple, the strategy 
and thought that go into a game can be quite involved. And 
this computer version makes the rules even easier to learn. 
The computer just won't let you break them! Illegal moves are 
not allowed; it's as simple as that. If you don't know if a move 
is legal, simply try it. If it's allowed, the computer executes it. 
If not, nothing happens. The question of which move is best, 
however, is left entirely up to you. 

One or Two Players 

Type in and save the game, using "The Automatic Proof- 
reader" program you'll find in Appendix C. The Proofreader 
makes it almost impossible to mistype "Reversi." 

After loading the game program from tape or disk, enter 
RUN. The screen clears and you're asked if you want to play 
against the computer. Answer Y for a computer opponent or N 
to play against another person. If you want to watch the com- 
puter play against itself, press the C key instead. 

As soon as you select your opponent, you'll see the game 
screen. It's divided into 64 squares — an 8X8 grid. The object 
of Reversi is to strategically place discs on the squares so that 
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more discs of your color are on the screen at the end of the 
game than your opponent's color. 

Flipping Discs 

Black always moves first. The moves are made by using a joy- 
stick plugged into port 1. If you're playing another person, 
you'll have to share the joystick. When the computer plays 
against itself, of course, you don't need to plug in a joystick. 

The first four discs are automatically placed on the screen 
at the beginning of the game. You place your discs by moving 
the cursor (black or white) to the square of your choice and 
then pressing the fire button. The computer will allow only 
legal moves. This means that at least one of your opponent's 
discs must be "outflanked" as a result. 

After you place your disc, the fun begins. The computer 
flips (reverses the color) all your opponent's discs that have 
been outflanked. (Outflanked discs are those that lie in a line 
between the disc just placed and another disc of the same 
color, so long as there is not a break in the line.) A disc may 
outflank any number of opposing pieces in vertical, horizontal, 
or diagonal lines. 

If you're unable to set a piece anywhere on the screen, 
you have to forfeit the turn. That's done by pressing the space 
bar. You can tell there are no legal moves available when the 
computer won't place a disc no matter what square you have the 
cursor on. If you're pla3'ing the computer, and it's the computer's 
turn, it will hand over control to you if it has no move. 

White's score is displayed in the upper left comer of the 
screen, while black's is in the upper right corner. The score is 
updated after each turn. 

At the end of the game, the computer will ask if you want 
to play again. Enter Y to play again or N to exit the program. 

The Program 

Even though this program has a very graphic "feel," it was 
written entirely without the help of sprite graphics or other 
special graphics routines. Only the graphic characters found 
on the Commodore keyboard are used. In fact, the program is 
a very good demonstration of what can be done in BASIC 
with just the keyboard graphics and a little imagination. 

A quick inspection of the program also reveals that the 
GOSUB command is used extensively. That's because the logic 
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of the game seems to be an exercise in doing the same thing 
over and over, with only slight changes. For example, only 
one subroutine or section of the program is used to flip the 
discs. Variables are preset to indicate which disc is to be 
flipped and which color to flip it to. Once these variables are 
set, a subroutine is called with the GOSUB command and the 
disc changes color. The same single subroutine logic is also 
applied to performing the other tasks in the program, such as 
moving the cursor or reading the joystick. 

Playing Tips 

The best squares to occupy are the edges, since they can't be 
outflanked on all sides. The comers, in fact, seem to be the 
best squares to take, because they can't be outflanked from 
any direction. The best strategy, therefore, seems to be one of 
controlling the comers and edges. Be careful, though; even 
when you are way ahead, a few moves by your opponent can 
dramatically change the outcome of the game. 

That's why Reversi is such a popular game. It's fast, 
enjoyable, and full of changes in fortune. And since the com- 
puter does the tedious work of flipping the discs, you can con- 
centrate on strategy, working toward that ingenious move to 
tum several discs at once. 

Reversi 

For mistake-proof program entry, be-sure to use "The Automatic Proofreader," Appendix C. 

100 DATA 1,8,7,1,8,7,1,8,7,4,5,1 :reni 9 

110 DATA 4,5,1,1,8,7,1,8,7,3,6,3 : rem 6 

120 DATA 3,6,3,1,8,7,3,6,3,3,6,1 :rem 3 

130 DATA 4,5,1,3,6,3,1,8,7,2,7,5 :rem 6 

140 DATA 2,7,5,1,8,7,3,6,1,2,7,5 :rein 9 

150 DATA 2,7,5,3,6,1,2,7,5,2,7,5,0 : rem 100 

160 DIM G(10,9)zGOTO 1240 : rem 9 

170 POKE S1+X+40*Y,P:POKE C1+X+40*Y,C: RETURN 

:rem 87 

180 P=98:C4=C:Vl=X:V2=Y:X=X*4+l:Y=Y*3-2 : rem 60 
190 P3=PEEK(S1+X+40*Y) :C5=PEEK(C1+X+40*Y) :GOSUB 17 

:rem 169 

200 Y=Y+1:P=P+128 :rem 186 

210 P4=PEEK(S1+X+40*Y) :C6=PEEK(C1+X+40*Y) :GOSUB 17 

:rem 164 

220 X=X1*4+1 :Y=Yl*3-2 :rem 130 

230 P=P1 :C=C2:G0SUB 170 : rem 36 

240 Y=Y+1:P=P2:C=C3: GOSUB 170 irem 172 
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250 X1=V1 :Y1=V2 :P1=P3 :P2=P4:C2=C5 :C3=C6 :X=V1 :Y=V2 : 



C=C4 : RETURN 



:rem 40 



260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 

390 

400 
410 

420 
430 
440 
450 

460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 



Vl=X:V2=Y:X=X*4:Y=Y*3-2:P=233:GOSUB 170srem 39 
X=X+l:P=224:GOSUB 170 :rem 147 

X=X+l:P=223:GOSUB 170 :rem 147 

X=X-2 :Y=Y+1 :P=95 :GOSUB 170 : rem 243 

X=X+I:P=224:GOSUB 170 :rera 141 

X=X+1 :P=105:GOSUB 170 :rem 140 

X=V1:Y=V2 :rem 9 

IF C=l THEN WS=WS+1 :G(X,Y)=1 :rem 15 

IF C=0 THEN BS=BS+1:G(X,Y)=-1 :rein 18 

IP FL=1 AND C=l THEN BS=BS-1 : rem 159 

IP PL=1 7VND C=0 THEN WS=WS-1 srem 201 

RETURN :rem 122 

PRINT" {HOME} {DOWN} {3 SPACES}{3 LEFT } {WHT} " ; WS : 

:rem 139 

PRINT " { HOME } { DOWN } " ; TAB ( 3 6 ) ; " { 3 SPACES } 
{3 LEFT }{BLK}";BS: RETURN :rem 45 

IFBS+WS=64ORBS-0ORWS=0THEN1150 trem 133 

IF C=0 0R{2 SPACES }CO$="N"THEN GOSUB 450 

:rem 66 

IF C=l AND CO$="Y"THEN GOSUB 870 trem 135 

IF CO$="C"THEN GOSUB 870 :rem 238 

GOTO 400 trem 101 

JV=PEEK ( 563 21 ) : FR=JVAND16 : JV=15- ( JVAND15 ) 

:rem 170 

IP JV=0 THEN 510 
IP JV=1 THEN Y=Y-1:G0T0 540 
IP JV=2 THEN Y=Y+1:G0T0 540 
IF JV=4 THEN X=X-1:G0T0 540 
IF JV=8 THEN X=X+1:G0T0 540 
X$="":GETX$:IF X$=" "THEN GOSUB 700 
IF FR<>167VNDG(X,Y)=0 THEN GOSUB 590 
RETURN 



IP Y<1 THEN Y=8 
IF Y>8 THEN Y=l 
IF X<0 THEN X=9 
IF X>9 THEN X=0 
GOSUB 180: RETURN 
HX=X!HY=Y:OK=0 
XD=-1:YD=-1: GOSUB 740 
XD=0:GOSUB 740 
XDsl: GOSUB 740 
YD=0:GOSUB 740 
YD=1: GOSUB 740 
XD=0:GOSUB 740 
XD=-1:G0SUB 740 
YD=0:GOSUB 740 
IP OK=0 THEN RETURN 



:rem 251 
:rem 192 
:rem 192 
:rem 195 
:rem 189 
:rem 53 
:rem 161 
:rem 120 
:rem 235 
:rem 238 
:rem 235 
:rem 238 
trem 208 
trem 133 
trem 148 
trem 245 
trem 247 
trem 248 
trem 250 
trem 249 
trem 40 
trem 252 
trem 67 
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690 GOSUB 380:P1=160:P2=160:GOSUB 700: RETURN 

:rem 68 

700 IF G(X,Y)=1 THEN C2=1:C3=1 : rem 57 

710 IF G(X,Y)=-1THEN C2=0:C3=0 : rem 101 

720 IP TN=-1THEN TN= 1 :C=1 :X=0 :Y=3 :GOSUB 180:RETUR 

N :rem 254 

730 IP TN= ITHEN TN=-1 :C=0 :X=9 :Y=3 : GOSUB 180:RETUR 

N :rem 7 

740 FL=0:BR=0 :rem 213 

750 IF X<1 OR X>8 THEN GOTO 820 :rem 97 

760 IF Y<1 OR Y>8 THEN GOTO 820 irem 100 

770 X=X+XD:Y=Y+YD :rem 67 

780 IF FL=1 AND G(X,Y)=-TN THEN GOSUB 260:GOTO 770 

:rem 218 

790 IF G(X,Y)=-TN THEN BR=1 :GOTO 770 :rem 242 

800 IF G(X,Y)=TN AND BR=1 AND OK=0 THEN GOSUB 830 

:rem 116 

810 IF G(X,Y)=TN AND BR=1 THEN 0K=1 :FL=1 :BR=2 :X=HX 
sY=HY:GOTO 770 : rem 240 

820 X=HX:Y=Hy: RETURN : rem 90 

830 SX=X:SY=Y:X=HX:Y=HY :rem 55 

840 IF C=l AND CO$="Y"THEN GOSUB 1030 : rem 178 

850 IF CX)$="C"THEN GOSUB 1030 : rem 25 

860 GOSUB 260 :X=SX:Y»SY: RETURN :rem 198 

870 OK=0:Z=0: RESTORE srem 5 

880 IF(WS+BS)>8{2 SPACES) THEN 900 :rem 40 

890 FOR TM=1 TO 30: READ Q:NEXT :rem 189 

900 READ Nl :rem 52 

910 IF N1=0 THEN GOSUB 720:RETURN :rem 119 

920 READ N2,N3,N4,N5,N6 :rem 241 

930 IF RND(0)>.5 THEN SW=N1 :N1=N2 :N2=SW:N3=-N3 

:rem 131 

940 FOR Y=N1 TO N2 STEP N3 : rem 121 

950 IF RND(0)>.5 THEN SW=N4 :N4=N5 :N5=SW:N6=-N6 

:rem 151 

960 FOR X=N4 TO N5 STEP N6 : rem 131 

970 REM: GOSUB 180 :rem 215 

980 IF G(X,Y)=0 THEN GOSUB 590 :rem 95 

990 IF 0K=1 THEN GOTO 1020 :rem 100 

1000 NEXT: NEXT :rem 121 

1010 GOTO 900 :rem 148 

1020 RETURN :rem 163 

1030 Q2=X:R2=Y:Y=Y1 :rem 138 

1040 IFQ2-X1<>0THENXA=(Q2-X1)/ABS(Q2-X1) : rem 85 
1050 IF C=1ANDQ2=1 THEN GOTO 1090 :rem 252 

1060 IF C=0ANDQ2=8 THEN GOTO 1090 :rem 3 

1070 X3=X1+XA :rem 221 

1080 FORX=X3TOQ2-XASTEPXA:GOSUB180:NEXT :rem 93 
1090 IF Y1=R2 THEN GOSUB 180:GOTO1120 :rem 35 

1100 YA=(R2-Y1)/ABS(R2-Y1) : rem 182 
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1H0 FOR Y=Y1T0R2STEPYA:G0SUB 180:NEXT :reni 147 
1120 X=Q2:Y=R2 :rem 48 

1130 FOR TM=1 TO 400:NEXT TM :rem 12 

1140 RETURN :rem 166 

1150 PRINT" {HOME }i7i{ 3 RIGHT}"; :rem 215 

1160 IF CO$="Y" AND WS<BS THEN PRINT"THAT WAS TOUG 

H.";:GOTO 1210 :rem 120 

1170 IP CO$="Y" AND WS>BS THEN PRINT"THAT WAS A BR 

EEZE.";:GOTO 1210 :rem 242 

1180 IF BS>WS THEHPRINT"BLACK WINS."; trem 221 

1190 IF WS>BS THENPRINT "WHITE WINS."; : rem 2 

1200 IF BS=WS THENPRINT"A TIEl A TIEi"; : rem 145 
1210 PRINT" PLAY AGAIN? Y/N"; : rem 123 

1220 GETX$:IFX$<>"Y"ANDX$<>"N"THEN 1220 :rem 204 
1230 IF X$="N" THEN PRINT" {CLR} {HOME }"; :END 

:rem 146 

1240 X1=0 : Y1=0 : BS=0:WS=0 : Sl=1024 :C1=55296 :C=14 : FL= 
0: PRINT "{CLR} {HOME}" : rem 60 

1250 FOR X=l TO 10:FOR Y=l TO 9 : rem 61 

1260 G(X,Y)=0 :rem 171 

1270 NEXT:NEXT :rem 130 

1280 PRINT"PLAY AGAINST COMPUTER? {2 SPACES }Y/N " 

:rem 93 

1290 GET C0$ srem 98 

1300 IF CO$<>"Y"ANDCO$<>"N"ANDCO$<>"C" THEN GOTO 1 

290 :rem 115 

1310 PRINT"{CLR} {HOME}"; : rem 119 

1320 PRINT"{3 SPACES}iA3***gRi***gRl***ER§***iRi** 

*ER3***BRa***BR3***Is?" Trim 2Tl 

1330 FOR JPT T0~5~ :rem 79 

1340 PRINT" {3 SPACES} -{3 SPACES} -{3 SPACES }- 

{3 SPACES} -{3 SPACES} -{3 SPACES }-{ 3 SPACES }- 

{3 SPACES} -{3 SPACES}-" :rem 94 

1350 PRINT" {3 SPACES} -{3 SPACES} -{3 SPACES }- 

{3 SPACES} -{3 SPACES} -{3 SPACES} -{3 SPACES }- 

{3 SPACES }-{ 3 SPACES}-" :rem 95 

1360 IF X<8 THEN PRINT" {3 SPACES } gQ3 ***+***+***+** 

g^l .. :rem 128 

1370 NEXT X :rem 98 

1380 PRINT"{3 SPACES }Bz3***EE3***BE3***gE3 *** gE3** 

*iE§***EE3***gE§***ix?" ; ~?rem 25 

1390 X=ll :Y=6:P=87:G0SUB 170 :rem 82 

1400 X=27!GOSUB 170 :rem 21 

1410 Y=18!G0SUB 170 :rem 23 

1420 X=11:G0SUB 170 -rem 16 

1430 Y::'6:60SUB 170 :rem 230 

1440 X='4sY-4:C=l:G0SUB 260 :rem 211 

1450 X=5:Y=4:C=0:GOSUB 260 trem 212 
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1460 X=5 :Y=5 :C=1:G0SUB 260 :rem 215 

1470 X=4:Y=5iC=0:GOSUB 260 :rem 214 

1480 GOSUB 380 :reni 232 

1490 P1=96:P2=96:C2=6:C3=6 :rein 168 

1500 X=9:Y=3:P=98:C=0:TN=-1:GOSUB 180 :reni 131 

1510 GOTO 400 trem 148 



Family Tree 

Mark Haney 

Your computer is the perfect tool for keeping 
records. Storing and retrieving information, 
displaying it on the screen (or on paper), and let- 
ting you easily change the data are some of the 
most efficient uses of your Commodore 64. And 
genealogy is just a mass of information: names, 
dates, and relationships. With "Family Tree," 
you can use the 64's record'keeping power to trace 
your family's roots. For tape or disk users. 



Have you ever tried to create a family tree? Usually, you have 
to create a diagram-like chart and then write each name down 
in the proper blank. Adding or changing the chart can be al- 
most impossible without redoing it all. That's one of the dis- 
advantages of paper and pencil. 

Your Commodore 64 can help you trace your ancestors, 
without all the trouble of constantly redrawing charts. "Family 
Tree," a sophisticated record-keeping program for the 64, lets 
you enter names, dates of birth, and relationships. You can 
save the information to tape or disk, allowing you access to 
your genealogy at any time. Changing or deleting entries is 
done with a keypress or two. Adding more names is just as 
simple. And you can even create a copy of the chart if you 
have a printer. (If you have a Commodore MPS 801 printer, 
see page 92.) 

A family tree is a very personal piece of history. Your fa- 
ther's version neglects half your heritage, your son's includes 
people of only academic interest to you. Some first cousins 
you see several times in a year, others you may never recall 
meeting. 

This is not to say that you would wish to purge anyone 
from your family tree. But given the limitations of printed 
genealogy charts, it's difficult to make any sense of a docu- 
ment containing anything more than perhaps a few score of 
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names. And the task of maintaining or copying such a record 
is formidable indeed. 

Tracing 

Family Tree has two functions, maintenance and display, that 
operate together at all times. Storage and retrieval are taken 
care of by the LOAD and SAVE commands, as the program is 
self-modifying. 

Type in and save Family Tree to tape or disk. It's much 
easier to enter the program if you use "The Automatic Proof- 
reader," found in Appendix C. You can insure an error-free 
copy of the program if you use the Proofreader. 

When you first run Family Tree, you'll see a screen with 
instructions. The letters at the top indicate keys to press when 
you create the chart. We'll talk about them in a moment. After 
a short wait while the program initializes variables, you'll be 
asked to enter the filename of the tree you want to display. If 
this is your first time using Family Tree, then just hit the RE- 
TURN key. Press any key and the initial entry message ap- 
pears at the bottom of the screen. 

This is where you start. It may be worthwhile, before you 
begin, that you have an idea of how you're going to trace your 
genealogy. Begin with your name, and then work backwards 
to your distant ancestors? Or start with a great-great-great- 
grandmother and work towards your closer relatives? 

Whatever you decide, type in the initial entry. First name, 
last name, and birth year need to be separated with commas. 
If you don't know the year of birth, you can leave it out, but 
you still need the comma after the last name. Later, when you 
determine the birth year, you can return to the entry and put 
it in. 

As soon as you hit the RETURN key, the screen scrolls up 
and a shortened version of the name appears in the middle 
left of the display. There should be two large blinking cursors 
bracketing the name. At the bottom, in reverse video, will ap- 
pear the full name, as well as birth year. 

(When you've created a family tree file, saved it, then 
later loaded it back into memory, the bracketed name and full 
entry is what you'll first see on the screen.) 

Relative Spots 

The current person is noted by the cursor. Now you're ready to 
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enter and display relatives of the current person by pressing 
the following keys: 



Key 


Relative ^ 


<M 


Mother 


1 IF 


Father 


S 


Spouse 


P 


Previous sibling 


N 


Next sibling 


C 


ChUd 



After the initial entry appears, then you can type in that 
person's relatives by pressing one of the above keys. Hit the 
M key, for instance, and enter the current person's mother's 
name and birth year. Take care that you place commas be- 
tween the three items. (If you suddenly decide you don't want 
to make an entry, hit the RETURN key and the cursors move 
back to the last entry.) The mother then becomes the current 
person, as indicated by the cursors. You can continue to enter 
more names and birth years in this way. 

Backtracking, say to the initial entry, can be done in one 
of two ways. You can use the cursor keys on the Commodore 
keyboard to move the blinking cursors to that name. Or you 
can press the correct key from the table above. Let's say you 
have three names on the screen: the initial entry, and his or 
her mother and father. To move back to the initial entry, 
assuming the cursor is on the father's name, all you have to 
do is press the C (for Child) key and the cursors return to the 
first name. 

Don't worry about going off the screen as you enter sev- 
eral names. The display moves as necessary. 

Existing Trees 

If you've already created and saved a family tree file, and then 
want to modify it later, all you have to do is specify the 
filename when you see the first screen display. Make sure the 
disk or tape with the file is in the drive or cassette, and type 
in the file's name. You have to specify tape or disk by entering 
T or D. The file will load into memory and you'll see only the 
initial entry on the screen. Don't worry, the rest is there. You 
just have to hit a few keys to display it. 
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The initial entry is on the screen. What now? Just press 
the correct keys from the Relative table and the names appear 
in the chart. For example, if you earlier entered the initial en- 
try, plus that person's father, mother, and spouse, pressing F, 
M, and S (interrupted with some cursor movements) makes the 
three names display. 

Saving and Loading Trees 

Once you've created a tree that you want to save, just press Q. 
If you change your mind, you can hit the RETURN key and 
the screen appears as before. Press the Y key, however, and a 
prompt asking for a new filename shows at the bottom of the 
screen. You can save out a tree only if you've made changes. 
That's logical — why else would you want to save a file? 

As already discussed, to load a previously created tree 
file, all you have to do is enter its name in the first screen dis- 
play. It will load as soon as you've pressed T or D. 

More Keys 

Several other useful keys are: 



Key Function 

CI R C'uMr struen li'j\ini; onh cuirent peiMin 

ni r IVk-ti- luiuni |M isDii tii.>m display', ' 

f 1 Delete entry from tree ' ' ' ' ' ' 

O Output turren" L!ixpla\ -o pumt-i 

Q Quit ; \\T"v--'v:jW:? 

D Change data toi'iunent person ^ 



The cursor controls operate normally. 
Quit 

When you decide to quit the program and hit the Q key, there 
are two possibilities: The tree has merely been displayed, or 
changes have been made. In the latter case, new DATA state- 
ments must be created. It's essential that you wait for this pro- 
cess to occur and save the program after its completion. 
Otherwise, no record will be made of your changes. 

I've used Family Tree to create a tree of 360 names. One 
suggestion for larger families is the creation of separate trees 
representing different family branches. An estimate of memory 
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requirements is given by 8000 +77*n for n entries. This de- 
pends on name length and whether birth years are in all cases 
included. 



Family Tree 

For mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C. 

1 PRINTCHR$(147)"{12 RIGHT }THE FAMILY TREE":PRINT 

:rem 230 

2 PRINT"M — MOTHER" :PRINT"F~FATHER" :PRINT"S — SPOUS 
E":PRINT"P — PREVIOUS SIBLING" :rem 175 

3 PRINT"N — NEXT SIBLING" :PRINT"C — CHILD" :PRINT 

:reni 198 

4 PRINT" [CLR] — CLEAR SCREEN" : PRINT" [DEL] — DELETE E 
NTRY FROM SCREEN" :rem 74 

5 PRINT"CF1] — DELETE ENTRY FROM TREE" :rem 56 

6 PRINT"0 — OUTPUT SCREEN" : PRINT "Q — QUIT" :PRINT"D — 
CHANGE DATA" * rem 195 

7 PRINT"CURSOR CONTROLS NORMAL" :PRINT : rem 234 

9 PRINT"PLEASE WAIT FOR INITIALIZATION" :GOTO400 

:rem 15 

10 GOSUB500:IFA$=""THEN10 :rem 181 
12 GOSUB550 :rem 125 
15 ONJGOSUB110 , 120 , 1 30 , 140 , 150 , 160 , 170 , 180 , 1 90 , 200 

,210,220,230,240,250,260 :rem 186 

20 GOTO10 :rem 252 

110 IFY<MyTHENY=Y+ljN=SC(X,Y) :GOSUB650 :rem 180 

111 RETURN :rem 115 

120 IFY>1THENY=Y-1:N=SC(X,Y) :GOSUB650 :rem 68 

121 RETURN :rera 116 

130 IFX<MXTHENX=X+1:N=SC(X,Y) :GOSUB650 :rem 178 

131 RETURN :rem 117 

140 IFX>1THENX=X-1:N=SC(X,Y) :GOSUB650 :rem 67 

141 RETURN :rem 118 
150 M1=1:T1=1:T2=2:GOSUB850:RETURN :rem 79 
160 M1=2:T1=2:T2=1:GOSUB850:RETURN :rem 81 
170 M1=3:T1=3:T2=1:GOSUB800:RETURN :rem 79 
180 M1=6:T1=4!T2=4:GOSUB800: RETURN :rem 87 
190 M1=4:T1=5 :T2=3:GOSUB800:RETURN :rem 86 

200 IFN=0THENRETURN I rem 235 

201 N=FT %(SC(X,Y),6):I FN=0 THENMl =5 : G0SUB9 5 : 1 FN=0 T 
HENN=LN:GOSUB650: RETURN :rem 150 

202 1P0S% { N) <>0THENX=INT ( 0S% ( N) / 10 ) : Y=OS% ( N ) -1 0*X : 
GOSUB650: RETURN :rem 222 

203 TN=FT%(LN,6) :rem 128 

204 IFOS%(TN)<>0THENX=INT(OS%(TN)/10) :Y=OS%(TN)-10 
*X:N=TN:GOSUB650: RETURN :rem 67 
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205 IFFT%(TN,5)<>0THENTN=FT%(TN,5) :GOTO204 : rem 13 

206 IFX=lTHENMl=4:GOSUB700:D=-2 :GOSUB600 : RETURN 

:rem 224 

207 IFSC(X-1,Y)<>0THENGOSUB900! RETURN : rem 86 

208 X=X-1 :D=-2 :G0SUB6 00: RETURN :rem 105 

210 F0RJ=1T0MY : F0RK=1 TOMX : SC ( K , J ) =0 : NEXT : NEXT 

:rem 222 

211 F0RJ=1T0MN:0S%( J)=0:NEXT : rem 243 

212 PRINTCHR$(19) ; :FORJ=lTONR:PRINTBL$:NEXT:rem 39 

213 X=1:Y=4:D=0:GOSUB600: RETURN :rem 181 

220 GOSUB350:PRINTD$:A$="":INPUT"QUIT/Y, NO/CR";A$ 
:IFA$="Y"THEN222 : rem 206 

221 N=LN:GOSUB650:RETURN :rem 41 

222 IFFL=0THENGOSUB350:PRINTD$:END : rem 171 

223 GOSUB350:PRINTD$: PRINT "CHANGES HAVE BEEN MADE" 

:rem 55 

224 INPUT"NEW FILE NAME" ;N$ : INPUT "TAPE OR DISK";A$ 

:rem 232 

225 IFLEFT$ ( A$ , 1 )="T"THEN0PEN1 , 1 , 1 , N$ :GOT0227 

:rem 87 

226 0PEN1,8,2,N$+",SEQ,W" z rem 100 

227 PRINT#1,MN:FORJ=1TOMN:PRINT#1,N$(J,0)R$N$(J,1) 

:rem 234 

228 F0RK=1T06:PRINT#1,FT%(J,K) :NEXT :PRINT#1 , DT% ( J) 
I NEXT: CLOSE 1: END :rem 176 

230 GOSUB350:PRINTD$:A$="":INPUT"OUTPUT/O OR CR";A 
$:IFA$=""THENGOSUB350:RETURN :rem 95 

231 0PEN4 ,4,4: CMD4 : PRINTCHR$ ( 27 ) ; CHR$ ( 109 ) ; CHR$ ( 4 ) 
; : rem 163 

232 FORJ=0TONR-3 :FORK=0TONC-2 :T1=PEEK(SC+NC*J+K) 

:rem 242 

233 IFT1=64THENPRINTCHR$(133) ; :GOT0239 : rem 68 

234 IFT1=93THENPRINTCHR$(134) ; :GOT0239 :rem 72 

235 IFT1=107THENPRINTCHR$(132); :GOT0239 :rem 115 

236 IFT1=115THENPRINTCHR$(131) ; :GOT0239 :rem 114 

237 IFT1=32THENPRINTCHR$(32); :GOT0239 :reml7 

238 PRINTCHR$(Tl+64) ; :rem 209 

239 NEXT:PRINT:NEXT:PRINT#4:CLOSE4:RETURN : rem 57 

240 FL=1:M1=8:G0SUB785:IFN1$=""THENRETURN : rem 29 

241 GOSUB775:GOSUB650: RETURN : rem 41 
250 TP=SC+X*8+Y*120-169:FORJ=0TO3:FORK=0TO8:POKETP 

+J*40+K, 32: NEXT: NEXT :rem 108 

252 OS%(SC(X,Y))=0:SC(X,Y)=0:N=0:GOSUB650:RETURN 

:rem 177 

260 GOSUB350:PRINTD$:A$="":INPUT"DELETE FROM TREE/ 
Y, NO/CR";A$ :rem 217 

261 IFA$<>"Y"THENN=LN:GOSUB650: RETURN ; rem 103 

262 FL=1:IFFT%(FT%(N,1),6) <>NANDFT%(FT%(N,2) ,6) ON 
THEN264 :rem 236 
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263 TN=FT%{N,5) :FT% (FT% (N, 1 ) , 6)=TN:PT% (FT% (N, 2 ) , 6 ) 
=TN :rem 198 

264 FT%(FT%(N,4),5)=FT%(N,5) :PT%(FT%(N,5),4)=PT%(N 
,4) :FT%(FT%(N,3),3)=0 :rem254 

265 TN=FT%(N,6) :rem 60 

266 IFTN=0THENN=0:GOTO250 :rem 48 

267 IFFT%(TN,1)=NTHENPT%(TN,1)=0:TN=FT%(TN,5) :GOTO 
266 trem 176 

268 PT%(TN,2)=0sTN=FT%(TN,5) :GOT0266 irem 90 
350 PRINTD$:PRINTBL$:PRINTBL$CHR$(145) :RETURN 

:rem 133 

400 P0KE51 , 200 :POKE55 , 200 iPOKE52 , PEEK( 52 ) -1 :POKE56 
,PEEK(56)-1 :CLR :rein 9 

401 X=l :Y=4;N=1 i A$=" " :T1=0 :T2=0 iT3=0 :T4=0: D=0 :DR=0 
:M1=0:J=0 :K=0 :TN=0 :rem 164 

402 MX=5 :My=8 :NR=25 iNC=40 : LE=7 : LM( 1 )=800 j LM( 2 )=800 
:LM(3)=912iLM(4)=912 trem 225 

403 SC=256*PEEK(648) :MS=1000 :rem 33 

404 T5=255 :T6=256 :U8=128 :P1=0 :P2=0:P3=0:P4=0 

:reni 221 

405 DIMFT%(MS,6),0S%(MS),DT%(MS),N$(MS,1),SC(MX+1, 
MY+1),0P$(16) :rein 24 

406 F0RJ=1T08:READTP$(J) :NEXT trem 70 

407 DATAMOTHER, FATHER, SPOUSE , NEXT , CHILD , PREVIOUS , I 
NITIAL ENTRY, NEW DATA :rein 17 

408 F0RJ=1T016:READ0P$(J) :NEXT :rem 114 

409 REM [DOWN], [UP], [RIGHT], [LEFT],,,,,,, [a:iR],,,C 
DEL],[F1] :reni 164 

410 DATA" { DOWN }","{ UP }","{ RIGHT }","{ LEFT }", M , F , S , P 
,N,C,"{CLR}",Q,0,D,"{DEL}","{F1}" :reni 82 

411 FR( 1 )=SC+LM( 1 ) : FR( 2 )=SC+3*NC: FR( 3 )=SC+LE+1 : FR( 
4)=SC+LM(4) rrem 190 

415 TG(1)=SC+LM(1)+3*NC:TG(2)=SC:TG(3)=SC:TG(4)=SC 
+LM(4)+LE+1 rrem 206 

420 T1=PEEK(55)+T6*PEEK(56) iFORJ=TlTOTl+45:READT2 : 
P0KEJ,T2:NEXT :rem 155 

421 DATA160 , , 177 , 251 , 145 , 253 , 24, 165 , 251 , 101 , 142 , 1 
33,251,165,252,101,143,133 :rem 183 

422 DATA252, 24, 165, 253, 101, 142, 133, 253, 165, 254, 101 
,143,133,254,165,140,208 :rein 95 

423 DATA4, 198, 141, 48, 5, 198, 140, 24, 144, 211, 96 

:rem 177 

425 MN=0:N$(0,0)="EMPTY":N$(0,1)="SPOT" :rem 141 

426 PRINT:N$="":INPUT"FAMILY TREE PILE NAME 

I2 SPACES} (CR IF NONE)";N$ :rein 233 

427 IFN$=""THEN433 :rem 232 

428 INPUT"TAPE OR DISK";A$ :rem 8 

429 IFLEFT$ ( A$ , 1 )= "T"THEN0PEN1 , 1 , ,N$ :G0T0431 

:rem 89 
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430 0PEN1,8,2,N$+",SEQ,R" :rem 92 

431 INPUT* 1 , MN : F0RJ=1 TOMN :INPUT#1,N$(J,0),N$(J,1) 

:rem 163 

432 FORK=l T06 : INPUT* 1 , FT% { J , K ) : NEXT : INPUT* 1 , DT% ( J ) 
:NEXT:CL0SE1 trem 162 

433 PRINT :PRINT"PRESS ANY KEY WHEN READY 

{10 SPACES}" :rem 55 

434 GETA$:IFA$=""THEN434 trem 89 

435 IFMN=0THENM1=7 :GOSUB950 trem 172 

436 D$=CHR$(19) tF0RJ=lT0NR-3tD$=D$+CHR$( 17) tNEXT 

trem 31 

437 BL$=""tFORJ=lTONC-l :BL$=BL$+" " tNEXT tR$=CHR$( 1 
3) :rem 162 

438 CH$(1)=CHR$(125) tCH$(2)=CHR$(96) fCH$(3)=CHR$(l 
71) tCH$(4)=CHR$(179) trem 148 

440 FORJ=lTONRtPRINTBL$ tNEXT tGOSUB600 fGOTO10 

trem 144 

500 Pl=SC+( X-1 ) * ( LE+1 ) + ( Y-1 ) * 3*NC t P2=P1+LE-1 1 P3=P2 
+NC-LE+ltP4=P3+LE-l trem 76 

501 GETA$tIFA$<>""THENRETURN trem 214 
505 T1=PEEK(P1) tT2=PEEK(P2) tT3=PEEK(P3) tT4=PEEK(P4 

) tGETA$tlFA$<>""THENRETURN trem 178 

510 POKEPl ,Tl+U8tPOKEP2,T2+U8tPOKEP3,T3+U8tPOKEP4, 

T4+U8 trem 180 

515 FORJ=lTO50tGETA$tIFA$=""THENNEXT trem 222 

5 20 POKEPl , Tl f P0KEP2 , T2 1 P0KEP3 , T3 t P0KEP4 , T4 

trem 213 

525 IFA$=" "THENFORJ=1TO50 tGETA$ t IFA$=" "THENNEXT 

trem 131 

530 RETURN trem 120 

550 F0RJ=lT016tIFA$<>0P$(J)THENNEXT trem 183 

551 RETURN trem 123 

600 GOSUB650tPRINTLEFT$(D$, ( Y-1 ) *3+l )TAB( (LE+1)*(X 
-1))LEFT$(N$(N,0),LE) trem 206 

601 PRINTTAB ( ( LE+1 ) * ( X- 1 ) ) LEFT $(N$(N,1),LE) 

trem 134 

605 SC(X,Y)=NtOS%(N)=10*X+Y trem 46 

610 IFABS(D) O2THEN620 trem 4 

615 PRINTLEFT$(D$, (Y-1 )*3+2)TAB( (LE+1 )* (X+(D>0) )-l 
)CH$(ABS(D)) J trem 138 

616 PR1NTCHR$ ( 145 ) CHR$ ( 157 ) CH$ ( ABS( D) ) t RETURN 

trem 138 

620 PRINTLEFT$ ( D$ , 3 * ( Y- ( D> ) ) -3 ) TAB ( ( LE+1 ) * ( X-1 ) +2 
)CH$(ABS(D) )CH$(ABS(D)) trem 186 

625 RETURN trem 125 

650 GOSUB350 tLN=NtPRINTD$ tPRINTCHR? U8 )N$ (N,0 ) " 
{2 SPACES} "N$(N,1)" {2 SPACES } "DT% (N) t RETURN 

trem 156 

700 GOSUB350 1 POKE140 , LM ( Ml ) ANDT5 1 P0KE141 , LM ( Ml ) /T6 

trem 233 
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701 P0KE142 , 1 : POKE143 , : IFFR(M1 ) <TG ( Ml ) THENPOKE142 
,T5:POKE143,T5 :reni 78 

702 POKE251,FR(Ml)ANDT5:POKE252,FR(Ml)/T6 :rem 157 

703 P0KE2 5 3 , TG ( Ml ) ANDT5 : P0KE2 5 4 , TG ( Ml ) /T6 : SYS ( PEEK 
(55)+T6*PEEK(56)) : rem 210 

705 ONM1GOTO710,715,720,725 :rem 224 

710 FOR J=lTOMX : F0RK=1 TOMY-1 : 0S% ( SC ( J , K ) ) =08% ( SC ( J , 
K))+1:NEXTK srem 23 

711 OS%(SC(J,MY) )=0:NEXTJ :rem 228 

712 F0RJ=MYT01STEP-1 :F0RK=1T0MX:SC(K, J)=SC(K, J-1 ) : 
NEXT: NEXT trem 85 

713 PRINTCHR$ ( 19 ) BL$ :PRINTBL$ :PRINTBL$ : RETURN 

:rein 162 

715 P0RJ=1T0MX:F0RK=2T0MY:0S%(SC(J,K) )=OS%(SC( J,K) 
)-l:NEXTK :rem 193 

716 OS%(SC(J,1))=0:NEXTJ trem 116 

717 FORJ=lTOMy:PORK=lTOMX:SC(K,J)=SC(K,J+l) :NEXT:N 
EXT :reni 190 

718 PRINTLEFT$ (D$ ,3* (MY-1 ) )BL$ :PRINTBL$ :PRINTBL$ :R 
ETURN :rem 209 

720 FORJ=1TOMY:FORK=2TOMX:OS%(SC(K,J))=OS%(SC(K,J) 
)-10:NEXTK : rem 237 

721 OS%(SC(l,J) )=0:NEXTJ :rem 112 

722 F0RJ=1T0MY:F0RK=1T0MX:SC(K, J)=SC(K+1, J) :NEXT:N 
EXT J rem 186 

723 PRINTCHR$(19); :F0RJ=1T03*MY-1 :PRINTTAB(NC-LE-1 
)LEFT$(BL$,LE) :NEXT trem 33 

724 F0RJ=SC+NC-1T0SC+NC-1+NR*NCSTEPNC :P0KEJ , 32 :NEX 
T: RETURN :rem 56 

725 F0RJ=1 TOMY : F0RK=1 TOMX-1 : 0S% ( SC ( K , J ) ) =08% ( SC ( K , 
J))+10:NEXTK :rem 77 

726 OS%(SC(MX,J) )=0:NEXTJ srem 233 

727 P0RJ=1T0MY:F0RK=MXT01STEP-1:SC(K,J)=SC(K-1,J) s 
NEXT: NEXT :rem 91 

728 PRINTCHR$(19) ; sF0RJ=lT03*My-l :PRINTLEFT$(BL$,L 
E+1) :NEXT srem 173 

729 FORJ=8C+NC-lT08C+NC-l+NR*NCSTEPNCsPOKEJ,32iNEX 
T:RETURN srem 61 

750 TN=I.N:N=MN+lsMN=N:GOSUB775 srem 142 

751 IFFT%(TN,5)<>0THENTN=FT%(TN,5) SGOT0751 srem 26 
755 PT%(TN,A)=NsIFFT%(TN,4)<>0THENTN=FT%(TN,4) sGOT 

0755 srem 4 

760 FT%(N,3)=FT%(TN,B) sPT% (N,6 )=TNsIFFT% (TN,B) <>0T 
HENPT%(FT%(TN,B),3)=N srem 108 

761 RETURN rrem 126 
775 N$(N,0)=Nl$sN$(N,l)=N2$sDT%(N)=DT%: RETURN 

rrem 35 

785 GOSUB350sPRINTD$ SPRINT SPRINT "TYPE FIRST NAME, 
{SPACE} LAST NAME, BIRTH YEAR"; srem 58 
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790 PRINTCHR$(145)CHR$(145) :PRINTTP$(M1); :N1$="":D 

T%=0:INPUTN1$,N2$,DT%:RETURN : rem 160 

800 IFN=0THENRETURN : rem 241 

802 N=FT%(SC(X,Y),T1) :IPN=0THENGOSUB950:IFN=0THENN 

=liN:G0SUB6 50: RETURN : rem 194 

805 IFOS%(N)<> 0THENX= INT(OS%(N)/l0):Y=OS%(N)-X*10: 

G0SUB6 50: RETURN : rem 231 

807 DR=1:IFT1=40RT1=3ANDY<5THENDR=-1 : rem 245 

810 IFSC(X,Y+DR)=0AND{Y+DR)>0AND(Y+DR) <MY+1THENY=Y 

+DR:D=T2*-DR:GOSUB600 :RETURN :rem 185 

815 IFSC(X,Y-DR)=0AND(Y-DR) >0AND(Y-DR) <MY+1THENY=Y 

-DR:D=T2*DR:GOSUB600 :RETURN :rem 153 

820 IPY=1THENM1=1 :GOSUB700: D=T2 :GOSUB600 : RETURN 

:rem 7 

825 1FY=8THENM1=2 :GOSUB700:D=-T2 :GOSUB600: RETURN 

:rem 65 

830 GOSUB900 : RETURN : rem 206 

850 IFN=0THENRETURN : rem 246 

852 N=FT%(SC(X,Y),T1) :IFN=0THENGOSUB950:IFN=0THENN 

=IiN:G0SUB6 50 i RETURN :rem 199 

855 IFOS%(N)<>0THENX=INT(OS%(N)/10) :Y=OS%(N)-10*X: 

G0SUB6 50: RETURN :rem 236 

860 TX=INT(0S%(FT%(SC(X,Y),T2) )/l0) :TY=OS%(PT%(SC( 

X,Y) ,T2) )-10*TX:IFTX=0THEN870 : rem 199 

865 IFTY=10RTY=MY0RSC(TX,TY-1 )=0ORSC(TX,TY+1)=0THE 

NX=TX:Y=TY:GOSUB170:RETURN :rem 133 

870 IFX=MXTHENM1=3 :GOSUB700 : D=2 :GOSUB600 : RETURN 

:rem 45 

875 IPSC(X+1,Y)<>0THENGOSUB900: RETURN :rem 95 

880 X=X+1:D=2:GOSUB600: RETURN : rem 64 

900 GOSUB350:PRINTD$CHR$( 17) "INSUFFICIENT SPACE ON 
SCREEN" :rem 46 

905 PRINT"SHOULD CLEAR OR DELETE "CHR$ ( 145 ): RETURN 

:rem 255 

950 IFMN<MS-1THEN952 : rem 209 

951 GOSUB350:PRINTD$:PRINT"INSUFFICIENT MEMORY" :F0 
RJ=1TO1000:NEXT: RETURN : rem 33 

952 G0SUB785:IFN1$=""THENRETURN :rem 192 

955 FL=1 :0NM1G0T0956 , 960 , 965 , 970 , 975 , 980 , 990 

:rem 168 

956 A=l :B=2 :G0SUB7 50s RETURN s rem 174 
960 A=2:B=1:GOSUB750:RETURN :rem 169 

965 TN=LN:N=MN+l:MN=N:GOSUB775 :rem 150 

966 FT%(TN,3)=N:FT%(N,3)=TN:FT%(N,6)=FT%(TN,6) :IFF 
T%(N,6)=0THENRETURN : rem 103 

967 TN=FT%(N,6) :A=1:IFFT%(FT%(N,6) ,2)=0THENA=2 

:rem 113 

968 FT%(TN,A)=NsTN=FT%(TN,5) : IFTNO0THEN968 

:rem 104 

969 RETURN :rem 136 
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970 TN=LN:N=MN+1 :MN=N:GOSUB775 :rem 146 

971 FT%(N,1)=FT%(TN,1) :FT%(N,2)=FT%(TN,2) :FT%(N,4) 
=TN:FT% (TN, 5 )=N: RETURN :reni 180 

975 TN=LN:N=MN+l:MN=N:GOSUB775 :rem 151 

976 IPFT%(TN,6) <>0THENA=2+{FT%(FT%(TN,6) ,1)=TN) :G0 
T0978 :rem 201 

977 GOSUB350:PRINTD$CHR$(17)CHR$(17)"GENDER OF PAR 
ENT; MOTHER/1, FATHER/2"; : rem 166 

978 PRINTD$CHR$(17)N$(LN,0) ; :INPUTA:B=2+( A=2) 

:rem 109 

979 FT%(N,A)=TNiFT%(N,B)=FT%(TN,3) :FT%(TN,6)=N:FT% 
(FT%(TN,3),6)=N:RETURN :rem 226 

980 TN=LN:N=MN+l:MN=N:GOSUB775 : rem 147 

981 FT%(N,1)=FT%(TN,1) :FT%{N,2)=FT%(TN,2) :FT%(N,5) 
=TN:FT%(TN,4)=N :rem 155 

982 T3=FT%(TN,1) :IFT3<>0THENFT%(T3,6)=N :rem 35 

983 T3=FT%(TN,2) :IFT3<>0THENPT%(T3,6)=N :rem 37 

984 RETURN :rem 133 
990 MN=MN+1 :N=MN:GOSUB775: RETURN jrem 72 

NOTE: 

In order for this program to work with a Commodore MPS 
801 printer, change the following lines. 

231 0PEN4,4:CMD4 :rem 158 

233 IFT1=64THENPRINTCHR$(96) ; :G0T0239 :rem28 

234 IFT1=93THENPRINTCHR$(125); :GOT0239 : rem 72 

235 IFT1=107THENPRINTCHR$ (171 ) J :G0T0239 : rem 118 

236 IFT1=115THENPRINTCHR${179) ; :G0T0239 :reml26 
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Supertank 



Boris Litinsky 

In this unusual action game, your goal is to pre' 
r~] vent Hostile tanks from crossing your territory. By 
— ' aiming carefully and avoiding direct hits, you 

may make it to the rank of Marshal. Joystick 

required. 



Your orders are to stop the enemy tanks. But in the back of 
your nund, you know there's more to it than just following or- 
ders. You know that if you don't stop them, they'll stop you. 
Your goal is simply to survive. 

Your commander has been kind enough to give you a 
choice of three different tanks. The Tiger has strong armor, 
which is great for helping you survive, but it moves slug- 
gishly. The T-34 has moderate armor and speed, but lacks 
firepower. If you choose the Sherman, you'll have a quick 
tank with a good cannon, but almost no defense (armor). If 
you're a new recruit, you might want to choose the T-34 be- 
cause of its defensive capabilities. Advanced players who are 
sure of their abilities may prefer the Sherman, although a sin- 
gle hit by the enemy can be devastating. 

Controlling the Tank 

Using "The Automatic Proofreader" (found in Appendix C), 
type in and save "Supertank." Load and run it, and in a few 
I I moments you'll see the tank outfitting display. Notice the dif- 
ferent strengths and weaknesses each tank has. Pressing the 
] — I appropriate key (1 for Tiger, 2 for T-34, or 3 for a Sherman) 
! t begins the game. 

Your tank quickly moves onto the battlefield. Enemy 
tanks move across the screen from left to right. Using a joy- 
stick plugged into port 1, you can control the crosshairs of 
your cannon. Get the enemy tank in your sights and press the 
fire button to fire a salvo. Remember that it takes time for the 
shots to travel; you'll have to adjust accordingly, shooting 
slightly in front of your target. 
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After pressing the fire button, you'll see the shot fly (from 
the left edge of the screen). If it misses, nothing will happen. 
But if it hits the target, the enemy tank explodes and the 
screen changes color to simulate new terrain and new 
weather. You score ten points for each successful shot. 

If you miss, you become the target. The enemy tank will 
turn toward you and fire. The enemy rarely misses — and 
you'll lose one armor point when you get hit. In the upper 
right-hand comer is a status indicator which displays how 
many points you've scored and how much armor you have 
left. When your defenses reach zero, your tank is destroyed. 
The viewport cracks, and the tank is reduced to scrap. 

Sometimes, if you fire often enough, you can force the en- 
emy tank to vanish at the right side of the screen. It's fled un- 
der your bombardment, without firing a shot. Unfortunately, 
another one immediately takes its place on the left. However, 
this can give you some breathing space, especially if you're 
using the Tiger, whose turret swings around so slowly. 

Extra Chances 

Losing a tank is not a total catastrophe, however. You manage 
to escape by the skin of your teeth, and make your way back 
to headquarters. You are awarded a rank, based on your 
performance, from Private (less than 50 points scored) to Mar- 
shal (over 1000). But if no points are scored, you're branded a 
Trainee. Whatever your rank, you're given another chance to 
do battle. Choose another tank and the game begins again; 
you may yet earn the exalted rank of Marshal. 

Supertank 

For mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C. 

10 PRINT " {CLR} {home 1 " :RESTORE : V=5 3248 : POKEV+3 2 , : P 
OKEV+33,l:POKEV+17,PEEK(V+17)AND247 : rem 174 

15 PRINTTAB ( 53 ) " { BLU } { RVS } W*E*L*C*0*M*E 1 " : PRINTTAB 
(59)"{RED} {RVSlTO" :rem 147 

17 PRINTTAB ( 55 ) " { RED } { RVS } SUPERTANK 1 " : PRINT 

:rein 158 

20 P0RQ=1T04:PRINTTAB(14) "g5§gN3" :NEXT :rem 50 

22 PRINTTAB ( 14 )"gNa{ RVS} £{8 SPACES } :PRINTTAB( 
14)"{RVS}f Q Q{2 SPACES }QQQ E*i{0FF}i2 IlB8 03 
g3 H" :rem 209 

24 PRINTTAB(13)"{RVSlf{2 SPACES }Q Ql3 SPACES iM 

{3 SPACES) {OFF} E2 Uig8 YiB3 uj" :rem 207 
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26 PRINTTAB(13)"{RVS}{3 SPACES ) QQQ { 2 SPACES ) QQQ 

{2 SPACES} {OFF}" : rem 79 

28 PRINT" {3 SPACES} {RVS}f{ 30 SPACES} i*| {OFF} " 

:rem 103 

30 PRINT"{2 SPACES} {RVS}f{ 32 SPACES } i*l {OFF} " 

:reni 96 

32 PRINT"{GRN}g2 +ig5i {RVS} {34 SPACES} {OFF} {GRN} 

g3 +3" srem 236 

34 PRINT"i3 +§g5lM W{RVS}f 1*3 {OFF}W{ RVS}£ g*§ 

{0FF}W{RVS}£ i'"3T0FF}wTRVS}£ g*iTOFF}wTRVS}£ 
g*i{OFF}W{RVS}f g*i{OFF}w{RVS}f i*i{OFF}*m 

{GRN} 14 +f" :rem 255 

36 PRINT"g4 +ig5|M {RVS} Q {OFF} {RVS} Q {OFF} 

{RVS} Q {OFF} TRVS} Q JoPF} {RVS} Q ToFF} {RVS} 
Q {off} {RVS} Q {0FF}N{GRN}i5 +3" : rem 148 

38 PRINT"g5 +3g5iMl*3{RVST {0FF}£Wg*3 {RVS} {OFF} 

£Wg*HRVS} {0PF}£Wg*3{RVS} {OFF}£Wg*i {RVS} 

Toff }£wg*3 {RVS} ToFF}£Wg*3{RVS} Toff}£{grn} 

g6 +1"^ :rem 31 

40 PRINT"g6 +§g5ig26 Yi{GRN}g7 +1" :rem 239 

42 F0RQ=1T02: PRINT "g 39 +§":NEXT :rem 175 

43 GOSUB800 :rem 127 
48 S=54272:FORL=STOS+24:POKEL,0:NEXT :rem 14 
50 P RINT " { CL R } { HOME } { WHT } " : POKEV+ 32,1: POKEV+ 3 3 , : P 

RINTTAB(120) : rem 187 

52 GOSUB1000 :rem 168 

60 PRINT"{CLR}{HOME}{WHT}":PRINTTAB(90)"TANK SPECI 

FICATIONS" :rem 192 

62 PRINTTAB{49)"{RVS}{GRN} STRONG {OFF} {3 SPACES} 

{RVS}{yEL} MEDIUM {OFF} {2 SPACES} {RVS }{ WHT} WEA 

K {off}" :rem 65 

64 PRINTTAB(40)"{GRN}{RVS}1.TIGER{OFF}{4 spaces}ar 

M0R{5 SPACES} {YEL}FIRE{5 SPACES } {WHT } SPEED " 

:rem 30 

66 PRINTTAB(40)"{YEL}{RVS}2.T-34{OFF}{5 SPACES} 

{GRN}SPEED{5 spaces} {YEL} armor {4 SPACES }{ WHT }FI 
RE " : rem 44 

68 PRINTTAB(40)"{WHT} {RVS}3.SHERMAN{0FF}{2 SPACES} 
{GRN}FIRE{6 spaces }{ YEL} speed {4 SPACES} { WHT } ARM 
OR":PRINTTAB(120) :rem 62 

70 PRINT:INPUT"{H0ME} {15 D0WN}{3 SPACES}WHICH TANK 
DO YOU CHOOSE ";TA :rem 214 

72 IFTA<1ORTA>3THEN80 : rem 56 

78 PRINT" {4 DOWN} {13 SPACES }GET READY 1":F0RQ=1T05 
00STEP.5:NEXT:GOTO85 :rem 10 

80 PRINT" {HOME} {15 DOWN} {10 SPACES}YOU CAN'T DO TH 
ATI {4 SPACES }":GOSUB 13 00 :GOTO70 :rem 210 

85 V=53248:GOSUB1100 :rem 130 

90 PRINT" {CLR}{ HOME }":POKEV+32,0:POKEV+33,1: rem 56 
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92 PRINTTAB(7)"{RVS}i5ifE*3{OFP}{4 SPACES } {RVS}£ 
i*§{0FF}{7 SPACES} {RVS}£i*i{OFF} {4 SPACES} 
{RVS}£i*|{OPF} {4 SPACEST{RVS}{BLK}SC0RE" :rem 1 

94 PRINT"^{2 spaces} {RVS}i5i£i*l{ off} {2 SPACES} 
{RVS}f{2 SPACES} {OFF} {3 SPACES} {RVS}£ 
{2 SPACES }g*l {OFF} {5 SPACES} {RVS}£{ 2 SPACES} 
g*l{0FF}{2 SPACES} {RVS}f{ 2 SPACESTg*i{OFF} 
{2 SPACES} {BLK}";SC :rem 52 

96 PRINT" {RVS}g5i£{2 SPACES } g*l£{ 3 SPACES}!*! 
{OFF} {2 SPACES }TRVS} {4 SPACESTg * 3 { OFF } 
{2 SPACES} {RVS}£{ 5 SPACES} {OFF} {RVS}£ 
{ 4 SPACES } i * 3 { OFF } { 2 SP ACES } { RVS } { BLKTaRMOR " 

trem 171 

98 PRINT" {RVS} i5i£{9 SPACES } g*3£{ 5 SPACES}g*§£ 

{6 SPACES}£{6 SPACES}i*i{OFFT{BLK}";AR :rem 29 
100 P0RQ=1T017 :PRINT"{RVS} {GRN}i39 +| " :NEXT: rem 64 
110 PRINT " { RVS } g 5 3 gQj CCCCCCCCC B W3 { RIGHT } £ 

{13 SPACES } g * 3 { RIGHT J g Q3 CCCCCCCCC g Wj"^ :rem 65 
112 PRINT" {RVS} g53gQ3 CCCCCCCCC EW3 117 SPACES } gQ3CCC 
CCCCCC gw3" :rem 129 

114 GOSUB420 trem 172 

120 CB=1:TI$="000000" :rem 34 

150 POKEV+21,15:POKE2040,13:POKEV+39,0:POKEV,170:P 
OKEV+l,150:y=170:X=150:SH=0 :rem 27 

151 POKE2042 , 193 :P0KEV+41 , 11 : RF=0 :UT=1 10 :POKEV+42 , 
0:POKE2043,195 :rem 206 

152 POKE 2041 ,14: POKEV+40 , : POKEV+2 , XI : POKEV+3 , Yl 

trem 109 

180 S^NOTPEEK (56321) ANDl 5 : U=S ANDl t I>SAND2 : L=SAND4 1 
R=SAND8:Y1=0:X1=0 trem 165 

182 POKEV+23,0tPOKEV+29,0 trem 189 

185 IFUTHENX=X-MliIFX<110THENX=X+Ml trem 253 

187 IFDTHENX=X+M1:IFX>180THENX=X-M1 trem 247 

189 IFRTHENY=Y+M1:IFY>245THENY=Y-M1 trem 14 

191 IFLTHENY=Y-MltIFY<90THENY=Y+Ml trem 205 

200 P0KEV,Y:P0KEV+1,X trem 59 

210 J=NOTPEEK( 56321 )AND16 1 IFJ=16THENGOSUB245 

trem 189 

230 BO=BO+.5tGOSUB310:GOTO180 trem 220 

245 SH=SH+ltXl=X:MR=Y:HH=Y/2:GOSUB400 trem 64 

247 P0RDD=DDT0HHSTEP5 t POKEV+2 , DD : POKEV+3 , XI : G0SUB3 
30tNEXT :rem 224 

250 POKE2041 , 15 tF0RDD=DDT0MRSTEP5 t POKEV+2 , DDtPOKEV 
+3,Xl:GOSUB330tNEXT trem 171 

251 IF(PEEK(V+30)AND4)>0THENIF(PEEK(V+30)AND4)>0TH 
ENGOSUB253 trem 110 

252 X1=0 1 DD=0 : Y1=0 1 POKEV+2 ,X1 1 POKEV+3 , MR t POKE2041 , 
14 t RETURN :rem 131 

253 POKE2041,192tPOKEV+23,2:POKEV+29,2 trem 184 
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254 POKEV+3,X1-10:POKEV+2,DD-12:GOSUB410:GOSUB495 

:rem 204 

258 FORRE=1TO500 :NEXT :POKEV+23 , : POKEV+29 , 

:rem 152 

260 X1=0 : DD=0 tYl=0 : POKEV+2 , XI : POKEV+3 , MR:POKE2041 , 
14: RETURN :rein 130 

310 RF=RF+5:IFRF>215THEN350 :rera 95 

315 POKEV+4,RF:POKEV+5,UT: RETURN :rem 79 

330 RF=RP+1 .8:IFRF>215THENRF=0 rrem 48 

333 IFRF=0THEN340 trem 243 

335 P0KEV+4,RF:P0KEV+ 5, UT: RETURN trem 81 

340 RF=0:UT=110:RS=INT(RND(0)*60) !UT=UT+RS:GOTO330 

trem 61 

350 F1=RF : F2=UT : POKE2042 , 1 94 : POKEV+6 , Fl : POKEV+7 , P2 
:GOSUB400 :rem 77 

355 F0RQ=F2T01 50 STEP . 4 : POKEV+7 , Q : NEXT : POKEV+29 , 8 : P 
OKEV+23,8:POKEV+6,Fl-12 trem 55 

3 60 F2=150: F0RQ=F2 T02 30 STEP . 6 : POKEV+7 , Q : NEXT : GOSUB 
410 :reni 73 

390 POKEV+6 , : POKEV+7 , : POKEV+4 , : POKEV+5 , : RF=0 : P 
OKEV+23,0:POKEV+29,0 trem 235 

391 POKE2042,193:GOTO499 : rem 118 
40 8=5 42 7 2 : FORL=STOS+2 4 : POKEL , :NEXT : POKES+5 , 9 : PO 

KES+6,16:P0KES+24,15 :rem 70 

405 POKES+4,129:POKES+l,34:POKES,75:RETURN :rem 91 
410 S=54272 : FORL=STOS+ 24 : POKEL , : NEXT J POKES+5 , 11 : P 

OKES+6,16:POKES+24,15 :rem 112 

415 POKES+4, 129 :P0KES+1, 54: POKES, 111: RETURN 

:rem 133 

420 S=54272 :FORL=STOS+24 :POKEL, :NEXT : POKES+5 , 11 : P 
OKES+6,56:POKES+24,15 :rem 117 

425 POKES+4, 1 29 :P0KES+1, 51: POKES, 97: RETURN :rem 96 
495 SC=SC+10:CB=0:RN=INT(RND(0)*15) :CB=CB+RN:G0T05 
00 :rein 95 

499 AR=AR-1 :rem 103 

500 V=5 3 248 : PRINT" { HOME } " : POKEV+32 , : POKEV+33 , CB 

:rem 248 

501 RF=0:UT=110:RS=INT(RND(0)*60) :UT=UT+RS:RF=RF+1 
.5: :rem 211 

502 PRINTTAB(7)"{RVS}E5l£g*|{OFF}{4 SPACES }{RVS} 
£i*ItOFP}{7 SPACES} {RVS}£i*I {OFF} {4 SPACES} 
TRVS } £i * I { OFF } { 4 SPACES }TRVS } { BLK } SCORE " 

:rem 45 

504 PRINT" {2 SPACES} {RVS}g5lfi*3 {OFF} {2 SPACES} 
{RVS}£{2 SPACES} {OFF} {3 SPACES} {RVS}f 
{2 SPACES }g*HOFF} {5 SPACES} {RVS}£{ 2 SPACES} 
g*3{OFF}{2 SPACES} {RVS}£{ 2 SP ACESTl * I { OFF } 
{2 SPACES }{ BLK} ";SC :rem 96 
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506 PRINT" {RVS}g53£{2 SPACES ) i*lf{ 3 SPACES}i*| 
{OFF} {2 SPACES ITRVS} {4 SPACEST§*HOFF} 
{2 SPACES} {RVS}£{ 5 SPACES} {OFF} {RVS}£ 
{4 SPACES} g*3 {OFF} {2 SPACES} {RVS} {BLKJaRMOR" 

:rem 215 

508 PRINT"{RVS}g5if {9 SPACES } i*3£{ 5 SPACES}g*j|£ 
{6 SPACES}£{6 SPACES}g*l{OFFT{BLK}";ARirem 73 

509 IFAR=0THEN?49 :rem 254 

510 RETURN :rem 118 

549 LL=18:BL=12:BB=15 :rem 169 

550 PRINT"{HOME}":POKEV+32,0:POKEV+33,1 :rera 214 
558 FORQ=5T07:PRINTTAB(Q) " {BLK}M"SPC(10) "M" :NEXT 

:rem 41 

560 PRINTTAB(7)"{BLK}N"SPC(ll)"M"SPC(4)"NM":rein 29 

561 PRINTTAB(6) "N"SPCTl3 ) "M"SPCT2) "N"SPCT2) "M" 

:rein 58 

562 PRINTTAB ( 5 ) " { BLK } N" SPC ( 15 ) " { BLK ]lW" SPC ( 4 ) " M" 

:rem 177 

563 PRINTTAB(5)"M"SPC(21)"N"SPC(3)"NM" : rem 142 

564 PRINTTAB ( 6 ) "M"SPC ( 6 ) "NM" SPC ( 11 )^" SPC ( 3 ) "N" SPC 
(2)"M" ~ :rein 136 

565 PRINTTAB(7) "M"SPC(4)"N"SPC(2)"M"SPC(10)"M"SPC( 
2)"N"SPC(4)"M" :rem 52 

566 PRINTTAB ( 8 ) "M" SPC ( 2 ) "N" SPC ( 4 ) "M" SPC ( 10 ) " MN" SPC 
(6)"M" trem 139 

567 PRINTTAB(9) "MN"SPC(6)"M"SPC{17)"N" :rem 158 

568 PRINTTAB ( 18 j'^-'SPC ( 15 )^N" :F0RLB=1T06 : PRINTTAB ( 
LL) "N"SPC(14) "N" :LL=LL-1 :NEXT : rem 60 

570 P0RQ=1T05:PRINTTAB(BL) "N"SPC(BB) "M" :BL=BL-1 :BB 
=BB+2:NEXT :rem 187 

580 RESTORE : POKEV+23 ,0 :P0KEV+29 ,0 :P0KEV+21 , :GOSUB 
420:PORQ=1TO500STEP.1:NEXT :rem 66 

585 S=54272:FORL=STOS+24:POKEL,0:NEXT:GOSUB1200 

:rem 193 

588 V=53248: BO=BO/10:XX=INT(BO) :SC=SC+XX:IFSC>HST 
HENHS=SC :rem 174 

589 PRINT" { HOME } { CLR} " : POKEV+32 , i POKEV+33 , 1 :P0KE5 
3281,1 :rem 62 

590 PRINTTAB(85)"{RVS}i2§B*0*N*U*S ";XX;SPC(3)" 

{ RVS } SHOTS FIRED" ; SH : PRINTTAB ( 45 ) " { RVS } YOUR" ; 

:rem 201 

591 PRINT" SCORE"? SC;SPC(3)"{RVS}HIGH SCORE ";HS:P 
RINTTAB(49)" {RVS} YOUR RANK IS { BLK} " ;B$ :rem 36 

592 PRINTTAB(43)" {RVS} 121 YOUR TOTAL SURVIVING TIME 

";TI$ I rem 114 

593 PRINTTAB ( 86 ) " { RVS }WANT TO PLAY AGAIN? ( Y/N) " 

:rem 243 

595 GETC$:IFC$=""THEN595 :rem 109 

596 SC=0:B$="":IFC$="Y"THEN599 :rem 168 

597 IFC$="N"THENSYS64738 :rem 164 
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598 C$*"":GOT0595 



trem 164 



599 SH«0 : SC=0 :BO»0 tXX=>0 :POKEV+32 , 1 :POKEV+33 , :GOTO 
60 :rem 172 

800 S=542 72 : PORL=STOS+24 : POKEL , 1 NEXT t POKES+5 , 9 : PC 



804 POKES+1 , HP : POKES , LF : POKES+4 ,33: P0RT=1T0DR : NEXT 
:POKES+4,32:GOTO801 :rein 168 

810 DATA18 , 209 , 1024 , 15 , 210 , 512 , 18 ,209 ,512,16, 195 , 1 
024,14,24,512,11,48,512 :rem 45 

811 DATA18, 209, 200, 16, 195, 200, 15, 210, 200, 14, 24, 200 
,15,210,512,22,96,512 :rem 178 

812 DATA16, 195, 1024, 11, 48, 1024, 15, 210, 512, 14, 24, 20 
0,12,143,200,11,48,200 :rein 222 

813 OATA10, 143, 200, 11, 48, 200, 12, 143, 200, 11, 48, 512, 
16,195,512,14,239,512 trem 185 

814 DATAll, 48, 512, 15, 210, 200, 15, 210, 200, 14, 24, 200, 
12,143,200,11,48,200 trem 105 

815 OATA10, 143, 200, 11, 48, 200, 12, 143, 200, 11, 48, 512, 
16,195,1024,22,96,512 trem 186 

816 DATA18 , 209 , 1024 , 15 , 210 , 512 , 18 , 209 , 512 , 16 , 195 , 1 
024,14,24,512,11,48,512 trem 51 

817 DATA18, 209, 200, 16, 195, 200, 15, 210, 200, 14, 24, 200 
,15,210,512,22,96,512 trem 184 

818 DATA16 , 195 , 1024 , 11 , 48 , 1024 , 15 , 210 , 512 , 14 , 24 , 20 
0,12,143,200,11,48,200 trem 228 

819 DATA10, 143, 200, 11, 48, 200, 12, 143, 200, 11, 48, 512, 
16,195,512,14,239,512 trem 191 

820 DATAll, 48, 512, 15, 210, 200, 15, 210, 200, 14, 24, 200, 
12,143,200,11,48,200 trem 102 

821 DATA10, 143, 200, 11, 48, 200, 12, 143, 200, 11, 48, 512, 
11,48,1024,-1,0,0 trem 210 

900 DATA255, 255, 255, 128, 24, 1,128, 24, 1,128, 24, 1,128 

,24,1,128,24,1,128,24,1 trem 35 

905 DATA128, 24, 1,128, 36, 1,128, 66, 1,255, 129, 255, 128 

,66,1,128,36,1,128,24,1,128 trem 1 

910 DATA24, 1,128, 24, 1,128, 24, 1,128, 24, 1,128, 24, 1,1 

28,24,1,255,255,255 trem 93 

915 OATA0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 

31,254,0,49,255,192,96,255 trem 88 

920 DATA240 , 196 , 127 , 252 , 206 , 127 , 255 , 206 , 127 , 255 , 19 

6,127,252,96,255,240,49,255 trem 35 

925 DATA192, 31, 254, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 



926 DATA0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 
63,240,0,103,252,0,195,255 trem 66 

927 DATA0, 219, 255, 192, 195, 255, 0,103, 252, 0,63, 240,0 



KES+6 , f POKES+24 , 1 5 
801 READHF,LP,DRtIFHF=-lTHENRETURN 



trem 19 
trem 196 



trem 109 



,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
928 DATA0, 0,0, 0,0, 0,0,0 



trem 207 
trem 113 
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930 DATA0, 0,2, 34, 128, 4, 0,64, 2, 146, 128, 16, 0,16, 10, 7 

3,32,64,0,4,17,140,96,64,0,4 :rem 2 

935 DATA17, 17, 16, 64, 0,4, 8, 136, 136, 64, 0,4, 17, 17, 16, 

32,0,8,8,136,128,16,0,16,2,72 :rera 80 

940 DATA128, 4, 0,64, 0,0,0 :rem 184 

945 DATA0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 64, 0,0, 64, 0,0, 64 

,0,0,64,0,0,126,0,0,255,255,0 :rem 221 

947 DATA255, 0,63, 255, 252, 127, 255, 254, 255, 255, 255,1 

00,68,70,37,85,84,20,68,72 :rem 243 

950 DATA15, 255, 240, 0,0, 0,0, 0,0, 0,0,0 : rem 228 

955 DATA0, 2, 0,0, 2, 0,0, 2, 0,0, 2, 0,0, 58, 0,0, 70, 0,0, 18 

6,0,0,130,0,0,254,0,1,255,0 :rem 128 

960 DATA3, 255, 128, 7, 255, 192, 0,124, 0,15, 187, 224, 8,1 

86,32,15,187,224,8,130,32,15 :rein 52 

965 DATA131, 224, 0,0, 0,0, 0,0, 0,0,0 :reni 83 

970 DATA0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 60,0 

,0,126,0,0,255,0,0,255,0,0 :rein 41 

975 DATA126, 0,0, 60, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 

,0,0,0,0,0,0,0,0,0,0,0,0 :rem 178 

1000 F0RA1=832T0894:READQ1:P0KEA1,Q1 :NEXT :rem 22 
1010 FORA2=896T0958:READQ2 :POKEA2,Q2 :NEXT :rem 38 
1015 FORA3=960TO1022:READQ3:POKEA3,Q3:NEXT : rem 70 
1020 P0RA4=12288 TO 12350: READQ4 : P0KEA4 , Q4 : NEXT 

:rem 226 

1025 FORA5=12352T012414:READQ5:POKEA5,Q5:NEXT 

:rem 228 

1030 FORA6=12416T012478 : READQ6 : P0KEA6 , Q6 : NEXT 

:rem 239 

1035 FORA7=12480TO12542 : READQ7 :P0KEA7 , Q7 :NEXT 

:rem 241 

1090 RETURN :rem 170 

1100 IFTA=1THENAR=5:IFTA=1THENM1=1 :rem 111 

1105 IFTA=2THENAR=3:IFTA=2THENM1=2 : rem 117 

1110 IFTA=3THENAR=1:IFTA=3THENM1=3 :rem 114 

1150 RETURN :rem 167 

1200 IFSC=0THENB$="TRAINEE" : rem 115 

1201 IFSC>0ANDSC<51THENB$="PR1VATE" : rem 147 

1202 IFSC>52ANDSC<101THENB$="SERGEANT" : rem 53 
1204 IFSC>101ANDSC<201THENB$="LIEUTENANT" : rem 3 
1206 IFSC>201ANDSC<401THENB$="CAPTAIN" :rem 15 
1208 IFSC>401ANDSC<601THENB$="MAJOR" : rem 142 
1210 IFSC>601ANDSC<801THENB$="COLONEL" :rem 30 
1212 IFSC>801ANDSC<1001THENB$="* GENERAL *" 

:rem 145 

1214 IFSC>1001THENB$="** MARSHAL **" : rem 179 

1216 RETURN :rem 170 

1232 GOTO500 :rem 150 

1300 FORI =1T01 500 :NEXT: RETURN :rem 94 
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Moving Message 

Robert F. Lambiase 

Scrolling messages across a screen can he used for 
advertising, simple reminders, or important notices 
at work and school. With "Moving Message," 
you can create, edit, save, load, and display mes* 
sages up to 3000 characters long. 



A message scrolling across a screen can be a real attention get- 
ter. It has all the right ingredients: motion and the ability to 
display more information than would fit on a single screen. 
You could flip through multiple screens, but the speed might 
be too fast or too slow for the viewer. A scrolling display 
paces the viewer and continuously gives new information. 

"Moving Message" lets you create and even edit a mes- 
sage; your Commodore 64 then scrolls that message across 
your display screen. 

Scrolling the 64 

The 64 has both horizontal and vertical scrolling capability. 
For this application, you'll only need horizontal scrolling. 

The computer's screen display is made up of 320 pixel- 
columns which are grouped into 40 character-columns, each 
with 8 pixel-columns. The first character column starts at the 
first pixel column. This can be changed, however, by altering 
the three least significant bits of address 53270. Sequencing 
these bits changes which pixel column (first through eighth) 
will be the starting point of the first character-column, and 
gives the effect of the character smoothly sliding over an entire 
character column. Sequencing up moves ttie characters to the 
right, and sequencing down moves the characters to the left. 

First Scroll, Then Shift 

Let's take a look at an example. Assume there is a single 
character on the right side of the screen that will be scrolled to 
the left. Sequencing the scroll bits from seven to zero will slide 
the character over to within a single pixel column of being a 
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full character column from where it started. To move over that 
one additional pixel column, the scroll bits must be reset to 
seven, and the character must be simultaneously moved left 
one screen position by altering the screen memory. 

Machine Language for Speed 

Now it gets a little tricky. The computer can't simultaneously 
reset the scroll bits and alter the screen memory. For maxi- 
mum speed, the use of machine language is essential. Unfortu- 
nately, not even the breakneck speed of machine language is 
enough. As the character scrolls across the screen, there would 
be occasional flashes of the character. This occurs when the 
video chip is displaying the character between the time the 
scroll bits are reset and the time the characters are shifted left. 
This problem can be overcome by permitting the scroll reset 
and shifting to be done only when the video chip is not writ- 
ing on the screen. To do this, the raster register is used. 

Raster Register to the Rescue 

Reading the value in the raster register at location 53266 
yields the current raster line being written. The machine lan- 
guage program used to reset the scroll bits and shift the 
characters left is preceded by a small loop checking for raster 
line 50. This raster line is just past where the characters are 
scrolling. The speed of the machine language program is suf- 
ficient to finish all operations before the screen finishes scan- 
ning its last line. 

Filling the Ends 

There's just one more detail to handle. Scrolling to the left 
leaves a gap on the right side to the screen. Scrolling to the 
right leaves a gap on the left. This is remedied by a special 
feature of the video chip. By resetting bit 3 of location 53270 
to 0, the screen is reduced to 38 characters per line. The 
spaces on either side of the screen are no longer visible since 
they're obscured by the widened borders. 

Putting It All Together 

Moving Message lets you create a message up to 3000 charac- 
ters in length, edit it, save it, recall it, and scroll it across the 
screen. When the last character scrolls off the screen, the first 
character scrolls onto the screen again. The message is stored 
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in consecutive memory locations starting at location 50000, 
and may consist of letters, numbers, punctuation, and spaces. 
The end of the message is marked by pressing the space bar 
while the SHIFT key is held down. It appears as a normal 
space, but its ASCII code is 160 instead of 32, and its screen 
code (used for POKEs) is 96 instead of 32. 

Using the Program 

Make sure you use "The Automatic Proofreader," in Appendix 
C, to help you type in Moving Message. The Proofreader in- 
sures that you'll type the program in correctly the first time. 
Save it to tape or disk, then load and run it. 

You're ready to enter your message. Simply type it in. As 
you enter the characters (which first appear at the arrow on 
the right side of the screen), the message moves to the left. 
End the message with the SHIFT-space key combination. The 
message automatically starts to scroll. 

If you need to change anything in the message, hit any 
key and the scrolling stops. Use the cursor keys to position the 
arrow at the desired place in the message. The cursor-down 
key shifts the message to the left, while the cursor-right key 
moves the message to the right. This permits two-fingered 
operation. 

Change a character by positioning it over the arrow and 
typing in the new character. You can even type over your pre- 
vious end-of-message mark (SHIFTed space), but remember to 
add a new one. Characters can be inserted or deleted at the 
arrow by using the fl and f3 keys respectively. 

When your editing is complete, the f5 key is used to start 
the scrolling again. 

Saving and Loading 

Saving and loading of messages is possible with either tape or 
disk. Press the f4 key to save, the f6 key to load. You'll have 
to provide a filename and then press T for tape or D for disk. 
The message is read into memory and then begins to scroll 
across the screen. (If you're using tape and loading a message, 
sometimes you'll see unwanted characters between the end of 
the message and the next time it appears on the left. To elimi- 
nate these characters, hit any key to return to the main menu, 
then use the cursor-down key to move to the end of the mes- 
sage. Press the SHIFTed space combination again, and then f5 
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to start the scroll. The message should appear as you want.) 

To keep up with the speed of the disk, it's saved as if it 
were a machine language program. Since the Datassette is 
slower, the data is stored byte by byte. When the tape file is 
read in, the end is recognized when the SHIFTed space is seen. 

Enhancements 

Many enhancements of this program are possible. It's not too 
difficult to have two messages scrolling across the screen 
simultaneously. With more modification, you should be able 
to scroll large characters. 



Moving Message 

For mistake-proof program entry, be sure to use 'The Automatic Proofreader," Appendix C. 

140 DIMH( 8) :F0RJ=1T07 :READH( J) :NEXT : rem 165 

150 DATA 17,29,133,135,140,139,138 : rem 137 

160 G=53270:POKEG,8:POKE53280,6:C$=C3iR$(147) :N$=CH 
R$(18) :F$=CHR$(146) :GOSUB460 : rem 143 

170 IS=50000 iI=IS : FORV=49960TO49999 : POKEV, 32 :NEXT 

:rem 6 

180 REM{2 SPACES} LOAD MACHINE LANGUAGE PROGS. 

:rem 143 

190 FORJ=49152T049193 :READD:POKEJ,D:NEXT : rem 240 
200 DATA162, 0,189, 161, 4, 157, 160, 4, 232, 224, 39, 208, 2 
45,96 :rem 198 

210 DATA162, 39, 189, 159, 4, 157, 160, 4, 202, 208, 247, 96 

:rem 173 

220 DATA173 , 18 , 208 , 117 , 50 , 208 , 249 , 169 , 7 , 141 , 22 , 208 
,32,0,192,96 :rem 34 

230 REM :rem 121 

240 REM{2 SPACES} MESSAGE INPUT :rem 15 

250 GETA$:IFA$=""THEN250 :rem 81 

260 A=ASC(A$) :P=A+64*((A>63)AND(A<161) ) :rem 45 
270 IFA=140THEN1260 :rem 51 

280 IF( (A<32ORA>132)ANDA<>160)THENPOKEI,96:IM=I:GO 
SUB320:GOTO630 : rem 123 

290 POKE1223,P:POKEI,P :rem 60 

300 IFA=160THENIM=IiGOSUB320:GOTO350 : rem 220 

310 SYS49152:POKE1223,32:I=I+1:GOTO250 :rem 201 
320 PORJ=I+lTOI+41:POKEJ,32:NEXT:RETURN :rem 251 
330 REM :rem 122 

340 REM{2 SPACES} MESSAGE SCROLLING :rem 45 

350 I=IS:POKEG,7:PRINTC$:GOSUB450 :rem 78 
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360 POKE1223,PEEK(I) :I=I+1 :rein 224 

370 IPPEEK(1184)=96THENI=IS I rem 106 

380 FORJ=6TO0STEP-1 :POKEG, J:FORK=0TO7 :NEXT:NEXT 

:reni 119 

390 SYS49178 : rem 168 

400 GETB$ :TD=TD:IFB$=""THEN360 : rem 249 

410 B=ASC(B$) :IPB=140THEN1260 :rem 119 

420 GOTO650 :rem 106 

430 REM :rem 123 

440 REM{2 SPACES } INSTRUCTION DISPLAY irem 244 

450 PORJ=55456T055495:POKEJ,14:NEXTiRETURN:rem 150 
460 PRINTC?; :GOSUB450 :rem 28 

470 POKE55535,14:POKE1263,30 :rem 38 

480 P0RJ=1T08:PRINT:NEXT:PRINTTAB(13) "MOVING MESSA 

GE" :rem 194 

490 PRINTTAB(83) "CHARACTERS ARE ENTERED AT THE ARR 

OW" srem 193 

500 PRINTTAB(40)"USE: ";N$; "SHIFT SPACE" fP$;" TO M 

ARK END OF MESSAGE" : rem 146 

510 PRINTTAB(5)N$;"F1";F$;" TO INSERT A CHARACTER" 

:rem 82 

520 PRINTTAB(5)N$;"F3";F$;" TO DELETE A CHARACTER" 

:rem 51 

530 PRINTTAB(5)N$; "F4"jF$; " TO SAVE" : rem 227 

540 PRINTTAB(5)N$;"F5";F$;" TO RESTART SCROLLING" 

xx&m 136 

550 PRINTTAB(5)N$; "F6";F$; " TO LOAD" : rem 216 

560 PRINTTAB(5)N$;"P8";F$;" TO EXIT" : rem 245 

570 PRINTTAB( 40) "CURSOR " ;N$ ; "DOWN" ; F$ ; " & ";N$;"R 
IGHT";F$;" KEYS ARE USED TO" : rem 59 

580 PRINT" POSITION THE CHARACTERS OVER THE ARROW" 

I rem 76 

590 PRINT" FOR EDITING." : rem 136 

600 RETURN :rem 118 

610 REM :rem 123 

620 REM{2 SPACES} MESSAGE EDITING : rem 133 

630 IFA=139THEN870 : rem 17 

640 IFA=136THEN1040 : rem 53 

650 I=IS:POKEG,8:PRINT"{CLR}":GOSUB460 : rem 195 
660 POKE1223,PEEK(I) :rem 126 

670 GETA$:IFA$=""THEN670 : rem 93 

680 A=ASC(A$) :P=A+64*( (A>63)AND(A<161) ) :rem 51 
690 Q=0:FORJ=1TO7:IPA=H(J)THENQ=J :rem 65 

700 NEXT :rem 214 

710 ONQGOTO770,800,820, 350, 1260,870,1040 :rem 92 
720 IF(A=134ANDI<IM)THEN840 : rem 72 

730 IFA=134THEN670 : rem 11 

740 POKE1223,P:POKEI,P :rem 60 

750 IPA=160THENIM=I:GOSUB320:GOTO350 : rem 229 

760 GOTO780 :rem 117 
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770 IFPEEK(1223)=96THEN670 : rem 227 

780 1=1+1 : SYS491 52 : POKEl 223, PEEK ( I ) : IFI > =IMTHEN1M= 
IM+1 : rem 59 

790 GOTO670 :rem 118 

800 IFI=ISTHEN670 : rem 21 

810 1=1-1 iSyS49166:P0KE1184,PEEK(I-39) :GOTO670 

:rem 212 

820 F0RJ=IMT0ISTEP-1 :P0KEJ+1 ,PEEK( J) :NEXT : rem 152 
830 POKEI,32 :POKE1223,32 :IM=IM+1 :POKEIM+40 , 32 :GOTO 
670 :rem 148 

840 F0RJ=IT0IM-1:P0KEJ,PEEK(J+1) :NEXT :rem 94 

850 POKE1223,PEEK(I) :POKEIM,32:IM=IM-l :GOTO670 

:rem 32 

860 REN :rem 130 

870 REM {2 SPACES) LOAD ROUTINE : rem 201 

880 INPUT" {CLR} FILE NAME";K$ : rem 242 

890 INPUT"TAPE (T) OR DISK (D)";A$ :rem 69 

900 IFA$="T"THEN970 :rem 49 

910 OPEN15,8,15, "10" :rem 17 

920 OPEN3,8,0, "0:"+K$+",P,R" : rem 157 

930 INPUT#15,EN,EM$,ET,ES : rem 223 

940 IFEN<>0THENPRINT;EN,EM$ ,ET,ES:GOTO1240:rem 152 
950 POKE185 , : POKE195 , 40 :POKE196 , 195 :SYS62631 

:rem 110 

960 CL0SE15: CLOSES :GOTO650 : rem 108 

970 OPEN3,1,0,K$ trem 89 

980 X=IS-40 trem 99 

990 GET#3,A$ :rem 105 

1000 A=ASC(A$+CHR$(0)) :P0KEX,A:X=X+1 :rem 42 

1010 IFAO96THEN990 :rem 76 

1020 CLOSES :GOTO340 :rem 118 

1030 REM trem 168 

1040 REM{2 SPACES} SAVE ROUTINE trem 254 

1050 INPUT" {CLR} FILE NAME";K$ trem 24 

1060 U=IM+42:UH=INT(U/256) tUL=U-256*UH trem 239 
1070 INPUT"TAPE (T) OR DISK (D)";A$ trem 108 

1080 IFA$="T"THEN1160 trem 137 

1090 OPEN15,8,15,"I0" trem 65 

1100 OPEN3,8,l, "0t "+K$+",P,W" trem 202 

1110 INPUT#15,EN,EM$,ET,ES : rem 6 

1120 IFENTHENPRINT;EN,EM$,ET,EStGOTO1240 trem 21 
1130 POKE193,40tPOKE194,195 trem 243 

1140 POKE174,ULtPOKE175,UH:SYS62957 trem 115 

1150 CLOSE15tCLOSE3tGOTO650 trem 148 

1160 0PEN3,1,1,K$ trem 130 

1170 PORX=IS-40TOIM+40 trem 58 

1180 PRINT#3,CHR$(PEEK(X)); trem 52 

1190 NEXTtPRINT#3 trem 39 
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1200 CLOSES :6OTO340 : rem 118 
1210 CLOSEl : INPUT "DO YOU WISH TO CONTINUE (Y/N)";D 

$ :rem 22 

1220 IFD$="Y"THEN620 :rem 93 

1230 GOTO1260 : rem 200 

1240 CLOSEl 5 :CL0SE3 : INPUT "DO YOU WISH TO CONTINUE 

{SPACE} (Y/N)";D$ : rem 49 

1250 IFD$="Y"THEN620 :rem 96 

1260 P0KEG,8:END : rem 180 
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Word Match 

Andy VanDuyne 

Hon; good is your memory? "Word Match," a 
memory game for the 64, will test your children's 
ability to remember short words. Suitable for 
grades K through 6, it can be modified for more 
difficult levels. 



Loosely adapted horn the old TV show "Concentration," 
"Word Match" is designed to entertain and test the memory of 
one or two players. The object is to find and match pairs of 
words hidden behind rows of colored blocks. 

Word Match is easy to learn. Players take turns selecting 
blocks, which disappear to reveal the words they conceal. An 
unsuccessful match means it's the next player's turn. Players 
who successfully match a pair of words gain another turn, and 
the matched blocks turn into the player's own color. To win 
the game, a player must match more pairs of hidden words 
than the opponent. The opponent, by the way, can be either 
another person or the computer itself. 

Word Match is ideal for grade-school children because all 
the words are only three letters long. A total of 50 words are 
included in the program, in lines 32-34. You can customize 
the program with your own word list by amending those 
lines. It's best if you keep the number of words at 50. Just 
make sure that there are no spaces between the words (just as 
you see in lines 32-34), and that the lines do not exceed 80 
characters. To make the game suitable for older children, you 
may want to include some unusual three-letter words and use 
the game for a vocabulary builder, as well as a memory game. 

Matching the Words 

Type the program in and save it. You'll find "The Automatic 
Proofreader" program in Appendix C an immense help in 
entering Word Match, for the Proofreader makes it almost 
impossible to enter a line incorrectly. 

When you first run Word Match, a two-screen instruction 



3 Education 



U 



u 



display appears. After you've read the first screen, press the 
RETURN key to look at the second. (If you've played the 
game before and don't want to be bothered with the instruc- 
tions, just hit the N key.) Then you'll be asked for the players' 
names. After the second name is entered, the screen dears, and a 
message reminds you that the computer is selecting the words. 

Although Word Match was designed primarily for two 
players, one person can compete against the computer by t)^- 
ing 64 as a player's name when the program starts. 

An interesting twist is to enter the computer's name for 
both players and then watch the machine play itself. The com- 
puter, however, is not as smart as you might think. It picks its 
blocks completely at random. A young child can have fun in 
this mode without becoming discouraged by an unbeatable 
opponent. Usually an out-of-memory error results after several 
rounds, but sometimes the computer actually beats itself. 

If you make a mistake typing in the block numbers, just 
use the DEL key to erase your answer. Type in the number 
you really want and press RETURN. Notice, too, that the pro- 
gram does not accept numbers for blocks which have already 
been matched. 

Word Match 

For mistake-proof program entry, be sure to use "The Automatic Proofreader." Appendix C. 

2 POKE53280,6:POKE53281,1:PRINTCHR$(147) :reni 67 

4 POKE254,0 trem 90 

5 GOTO10 :rem 207 

6 P0RP=1T02E3:NEXT: RETURN : rem 187 
10 DIMW$(12),W1$(6),C%(2),SQ%(12),SH%(12) :rein 41 
12 F0RN=1T012:READSQ%(N) :NEXT irem 67 
20 0=54272:8=827 trem 76 
22 S=54272 :FORN=ST054295 : POKEN , : NEXT : POKEN , 15 

trem 120 

24 POKES+5 ,15: POKES+6 ,255: POKES+2 , : POKES+3 , 8 

:rem 178 

25 C%(1)=2:C%(2)=5 :rem 87 

29 IFPEEK{254)=0THENGOSUB601 trem 190 

30 GOSUB701:PRINT"{CLR}{3 D0WN}0.K., "N$(1)" AND " 
N$(2)" " trem 106 

31 PRINT" {2 DOWNlPLEASE WAIT WHILE THE SCREEN IS S If 
ET UP-" trem 186 ' — ' 

32 W$="CARCATBOYHATHITTOPATEEATPITPATGOTHIMHERWHYH 
OWTINILLWHORUNYOUACEBEDINK : rem 193 , 

33 W$=W$+"AIMARTTOTTIEENDDOGPENWINNEWWONNOWPIGDADM \ j 

OMOFFPALLAPEAREYETOECAPPAN trem 78 
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34 w$=W$+"NOTTONTENDAYBID" : rem 127 

35 PORN=1TO50:POKEB+1I,0:NEXT:FORN=1TO50 :rein 241 

36 Z=INT(RND(l)*50)+l:IPPEEK(B+Z)<>0THEN36:rem 213 

37 POKEB+Z,NjNEXT : rem 83 

38 F0RN=1T06!W1$(N)=MID$(W$,1+(PEEK(B+N)-1)*3,3) :N 
EXT :rem 16 

39 C%(1)=2:C%(2)=5 - : rem 92 

40 FORN=1TO12:POKEB+N,0:NEXT : rem 6 

41 F0RN=1T011STEP2 : rem 123 

42 Z=INT(RND(1)*12)+1:Y=INT(RND(1)*12)+1 :rem 227 

43 IFPEEK(B+Z)<>0ORPEEK(B+Y)<>0ORZ=YTHEN42:rem 138 

44 P0KEB+Z,N:P0KEB+Y,N+1 :rem 221 

45 NEXT :rem 168 
47 F0RN=1T012:P0KEB+N,INT( ( PEEK (B+N) -1 )/2 )+l :W$ (N) 

=W1 $( PEEK ( B+N) ): NEXT :remll7 
50 GOSUB500 :rem 122 

70 D$="{H0ME}{19 DOV»N}":SP$="{39 SPACES}" :rera 40 
100 REM GAME :rem 143 

105 X=l :rem 92 

110 PRINTD$"{RED}WHICH BLOCKS, "N$(X)"?" : rem 226 
115 POKE53280,C%(X) : rem 5 

117 IFN$(X)="64"THENGOSUB1000 -rem 158 

120 PRINTD$" {DOWN} "SP$D$"{D0WN} {PUR} {RVS}BL0CK A? 
{BLK} {OFF}" ; iPOKE198,0 : rem 190 

121 GOSUB901 :I=VAL(AN$) :GOSUB400 :ON(I>12)+2GOTO120 
,124 :rem 161 

124 ON(PEEK(B+I)=0)+2GOTO120,135 : rem 12 

125 PRINTD$"{2 DOWN}"SP$D$" {2 DOWN} {BLU} {RVS} BLOCK 

B?{BLK} {OFF}"; :POKE198,0 : rem 105 

126 GOSUB901:J=VAL(AN$) :GOSUB400:ON(J>12)+2GOTO125 
,129 :rem 178 

129 ON(PEEK(B+J)=0)+2GOTO125,130 :rem 18 

130 IFI=JTHEN125 : rem 186 

131 PRINTD$SP$SP$SP$SP$; tGOT0138 :rem 240 

135 F0RN=1T03 : POKESQ% ( I ) +N+40+O , 6 i P0KESQ% ( I ) +N+40 , 
ASC(MID$(W$(I) ,N,1) )-64:NEXT :rem 53 

136 ON(N$(X)="64")+2GOTO1040,125 :rem 173 

138 F0RN=1T03 : POKESQ% ( J ) +N+40+O, 6 :POKESQ% ( J ) +N+40 , 
ASC(MID$(W$(J),N,l))-64 :reml94 

139 NEXT :rem 220 

140 IFPEEK(B+I)=PEEK(B+J)THEN200 : rem 123 

150 PRINTD$SP$D$TAB(15)"{RED} {RVS}N0 MATCH-{0FF} " : 
POKES+4,65:FORN=1TO30:POKES+1,80 :rem 196 

151 POKES+1 , 80-2 *N :NEXT s POKES+1 , : POKES+4 , 64 

:rem 126 

152 G0SUB6sPRINTD$SP$ : rem 68 

153 I$=STR$(I) :I$=RIGHT$(I$,LEN(I$)-1 ) iJ$=STR$( J) : 
J$=RIGHT$(J$,LEN( J$)-l) : rem 112 

154 POKESQ% ( I )+41 , 32 :POKESQ% ( J)+41 , 32 :P0KESQ% ( I ) +4 
3,32:POKESQ%(J)+43,32 :rem 26 
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155 P0RN=1T0LEN( 1$ ) :POKESQ% ( I )+41+N, ASC(MID$ ( 1$ ,N, 
1) ) :P0KESQ%(I)+41+N+0,4:NEXT : rem 98 

156 P0RN=1T0LEN( J$) :POKESQ% ( J)+41+N, ASC (MID? ( J$ ,N, 
1)) :POKESQ%(J)+41+N+0,4:NEXT : rem 103 

160 IFX=1THENX=2:GOTO110 : rem 231 

162 X=1:GOTO110 :rem 100 

200 REM RIGHTANS :rem 214 

205 PRINTD$SP$SP$D$"{15 SPACES} {BLK} { PUR} {RVS}MATC 

Hi 111 {OFF}" :rem 135 

207 F0RN=1T05 :P0KES+4, 65 :FORZ=40TO80 :P0KES+1 , Z :NEX 

TZ,N :rem 216 

210 POKES+l,0:POKES+4,64 : rem 126 

211 IFX=1THENS1=S1+1 :rera 185 

212 IFX=2THENS2=S2+1 : rem 189 
215 G0SUB6 :rem 78 
220 GOSUB802 : rem 174 
235 PRINTD$SP$ :rem 86 

237 CR=CR+1 :IFCR=6THEN300 : rem 242 

238 POKEB+I,0:POKEB+J,0 :rem 90 
240 GOTO110 :rem 97 
300 FORN=lT05:POKES+4,65 :PORZ=80TO30STEP-1 :P0KES+1 

,Z:NEXTZ,N i rem 107 

302 POKES+l,0:POKES+4,64 :rem 128 

305 PRINTD$"THE GAME IS OVER-" :G0SUB6 : rem 193 

307 IFS1>S2THENPRINTD$SP$D$N$(1)" WINSlll":rem 159 

308 IFS2>S1THENPRINTD$SP$D$N$(2)" WINSlll":rem 161 

309 IFS2=S1THENPRINTD$SP$D$"IT' S A TIElir'rrem 165 

310 G0SUB6:PRINTD$"{ DOWN} WANT ANOTHER? (Y/N) " :P0KE1 
98,0 :rem 230 

311 GETA$ :IFA$="N"THENPRINT" {CLR} {BLU} " tPOKEBK, 27 i 
END :rem 37 

312 IFA$="Y"THENRUN10 -.rem 233 
314 G0T0311 :rem 102 
400 POKES+4 , 33 : POKES+1 , 50 : FORP=1TO20 : NEXT : POKES+1 , 

0:POKES+4, 32: RETURN :rem 71 

500 REM DRAW SCREEN : rem 103 

501 PRINT" {CLR} ":F0RN=1T04:PRINTTAB(9)" {BLK} {RVS} 
{19 SPACES}" :rem 188 

502 F0RZ=1T03 :rem 28 

503 PRINTTAB(9)" {RVS} {0FF}{5 SPACES}{RVS} {OFF} 
{5 SPACES }{ RVS} {OFF} {5 SPACES }{ RVS } {OFF}":NE 
XTZ,N :rem 167 

504 PRINTTAB(9)" {RVS } {19 SPACES} " :PRI NT" {HOME } 

{2 DOWN} {PUR}" :rem 185 

505 PORN=1T09STEP3 :rem 136 

506 PRINTTAB(12)NSPC(3)N+lSPC(3)N+2 : rem 42 

507 PRINT" {2 DOV«l}"sNEXT :rem 8 

508 PRINT"{13 RIGHT}10{4 RIGHT}ll{4 RIGHT}12" 

:rem 245 

509 RETURN :rem 126 
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600 REM INTRO :rein 6 

601 FORZ=1TO12:SH%(Z)=0:NEXT:FORZ=1TO12 : rem 198 

602 X=INT(RND(1)*12)+1:IFSH%(X) O0THEN602 :rem 91 

603 SH%(X)=ZiNEXTZ :reni 108 

604 GOSUB501:POKES+4,65:FORZ=1TO11STEP2 :rem 190 

605 I=SH%(Z) :J=SH%(Z+1) :rera 20 

606 X=1:Q=C%(X) :C% (X)=VAL(MID$ ( "25",INT( RND ( 1 )*2)+ 
1,1)) :IFQ=C%(X)THEN606 : rem 7 

607 POKES+1 , RND ( 1 ) * 50+10 :GOSUB802 : POKES+1 , 

:rem 240 

608 NEXT :rem 221 

609 I=l8j=12:C%(X)=l:GOSUB802 :rem 135 

619 PRINT" {HOME} {3 DOWN} "TAB( 11) " {BLK}W0RD" :POKES+ 
1,30:FORP=1TO100:NEXT irem 132 

620 PRINT" {HOME} {15 DOWN} "TAB( 23 ) "MATCH" :P0KES+1 , 2 
: rem 95 

621 FORP=1TO100: NEXT: POKES+1, 0:POKES+4, 64 : rem 16 

622 GOSUB6:GOSUB6:POKE254,255 :rem 12 

623 PRINT"{CLR}{2 DOWN}WOULD YOU LIKE INSTRUCTIONS 
? (y/N)":POKE198,0 :rem80 

624 GETA$:IFA$="Y"THENGOSUB1501 :GOTO630 : rem 107 

625 IFA$="N"THEN630 :rem 40 

626 GOT0624 :rem 115 
630 RETURN : rem 121 

700 REM GET NAMES : rem 207 

701 DIMN$(2) :PRINT"{BLU} {CLR}NAMES, PLEASE 1" 

:rem 159 

702 PRINT" {home} {15 D0WN}T0 PLAY AGAINST THE COMPU 
TER, ENTER" :rem 86 

704 PRINT" '64' AS A PLAYER." : rem 244 

706 PRINT " { HOME } { DOWN } " : F0RN=1T02 i PRINT " { DOWN } PLAY 

ER"N; :INPUTN$(N) :NEXT: RETURN : rem 36 

800 REM PAINT SQUARES : rem 28 

802 Q=SQ%( I) :R=SQ%(J) : rem 184 

804 F0RN=1T03 :rem 21 

806 F0RW=QT0Q+4 : POKEW+0 , C% ( X ) : POKEW , 160 : NEXT : Q=Q+4 

0:NEXT :rem 81 

808 F0RN=1T03 :rem 25 

810 F0RW=RT0R+4 : POKEW+0, C%(X) :POKEW, 160 :NEXT:R=R+4 

0:NEXT: RETURN : rem 106 

900 REM INPUT ROUTINE :rem 51 

901 POKE198,0:AN$="" : rem 53 

902 GETA$:IFA$=""THEN902 :rem 89 

903 IFA$=CHR$(13)THEN920 :rem 77 

904 IFA$=CHR$(20)ANDLEN(AN$)>0THENGOSUB931:rem 242 

905 IFLEN(AN$)>1THEN902 :rem 73 

906 IFA$<"0"ORA$>"9"THEN902 :rem 206 

907 PRINTA$; :AN$=AN$+A$:GOTO902 :rem 72 
920 IFAN$=""THEN902 trem 40 
922 RETURN : rem 125 
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930 REM DELETE KEY :rem 28 

931 AN$=LEFT$(AN$,LEN(AN$)-1) :rem 77 
933 PRINT" {LEFT} {LEFT}"; irem 229 
939 RETURN :reni 133 
1000 REM 64 PLAYS :rem 152 
1005 I=INT ( RND ( 1 ) * 1 2 ) +1 : ON ( PEEK ( B+I )=0 ) +2GOTO1005 , 

135 :reni 185 

1040 J=INT(RND(1)*12)+1:IFJ=ITHEN1040 :rein 100 

1050 IFPEEK(B+J)=0THEN1040 :rem 227 

1060 PRINTD$SP$D$"64 PICKS"I"AND"J"{LEFT} . " 

:reni 204 

1065 GOSUB6:GOT0138 :rem 145 

1500 REM INSTRUCTIONS : rem 95 

1501 PRINTCHR$(14)CHR$(147) : rem 249 

1502 PRINT"{BLK} {2 SPACES }WORDS WILL BE HIDDEN BEH 
IND BLOCKS" :rem 11 

1503 PRINT"ON THE SCREEN. ENTER THE BLOCK NUMBER," 

:rem 69 

1504 PRINT "AND THE WORD WILL BE UNCOVERED. YOU" 

:rem 160 

1505 PRINT"MAY UNCOVER TWO WORDS DURING EACH TURN. 

:rem 127 

1506 PRINT" {DOWN} {2 SPACES} IF THE TWO WORDS MATCH, 

THE BLOCKS" :rem 95 

1507 PRINT "WILL BE FILLED WITH YOUR COLOR, AND YOU 
" :rem 19 

1508 PRINT"HAVE ANOTHER TURN. ^F THEY DON'T MATCH, 

:rem 137 

1509 PRINT"THE WORDS ARE COVERED UP AGAIN AND THE" 

: rem 169 

1510 PRINT"OTHER PLAYER GETS A TURN." : rem 210 

1512 PRINT" {DOWN} {3 SPACES }THE GAME IS OVER WHEN A 
LL OF THE" :rem 127 

1513 PRINT"BLOCKS ARE COLORED IN. THE PLAYER WHO" 

:rem 26 

1514 PRINT "HAS FOUND THE MOST MATCHES IS THE 

{19 SPACES} {DOWN}** WINNER **" : rem 166 

1515 GOSUB1600: :rem77 

1516 PRINT"{CLR} {2 DOWN} {3 SPACES} TELL THE COMPUTE 
R WHICH BLOCK TO" : rem 213 

1517 PRINT"UNCOVER BY TYPING A NUMBER (1-12) AND" 

:rem 38 

1518 PRINT"PRESSING RETURN. ^F YOU MAKE A MISTAKE, 
" :rem 190 

1520 PRINT "YOU MAY USE THE ' DEL ' KEY TO CHANGE" 

:rem 32 

1521 PRINT"YOUR ANSWER. PRESS THE {RVS} RETURN {OFF} 

KEY WHEN" r?im 116 

1522 PRINT"YOU ARE FINISHED WITH YOUR ANSWER." 

:rem 67 
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1523 PRINT"{2 DOWN} {4 SPACESl^F YOU CAN'T FIND ANO 
THER PERSON" : rem 32 

1524 PRINT"WITH WHOM TO PLAY THE GAME, YOU MAY" 

:rein 248 

1525 PRINT"PLAY AGAINST THE COMPUTER. JUST ENTER" 

:rera 157 

1526 PRINT" '64' AS ONE OF THE PLAYERS' NAMES." 

:rem 44 

1527 PRINT"THE COMPUTER ISN'T VERY SMART, BUT YOU" 

:rem 182 

1528 PRINT"CAN HAVE FUN PRACTICING." : rem 146 

1529 GOSUB1600:PRINTCHR$(147)CHR$(142) : RETURN 

:rem 208 

1600 PRINT" {3 DOWN}TOUCH {RVS} RETURN {OFF} TO CONTI 
NUE....":POKE198,0 :rem 121 

1602 GETA$:IFA$<>CHR$(13)THEN1602 :rem 100 

1604 RETURN : rem 171 

2000 DATA1115, 1121, 1127, 1275, 1281, 1287, 1435, 1441,1 
447,1595,1601,1607 : rem 86 



Connect the Dots 



Janet Arnold 

"Connect the Dots" is an entertaining graphics 
program for young children who can locate num- 
bers and letters on the l<eyboard. You can even 
add new drawings of your own. 



As teachers at a small private school, my husband and I saw 
many children anxious to get their hands on our computer 
whenever we brought it to class. Unlike many adults, who are 
hesitant to use it or even refuse to touch it altogether, the chil- 
dren jockeyed for their turn at even the dullest programs we 
loaded. 

I wrote "Connect the Dots" to provide my own children 
and my preschool/kindergarten students with a game that 
could entertain while reinforcing their skills at the same time. 

Making Dots into Pictures 

Here's how it works. The child is given a four-item menu from 
which to choose the pictvire he or she wishes to draw. The 
greater the number of dots, the longer it takes to complete the 
picture. 

A grid appears on the screen. Some of the squares contain 
markings. Tell the child to look for the solid dot, because 
that's what must be matched with the coordinates. When the 
prompt Number? appears at the top, show the child how to 
press the correct number coordinate and hit RETURN. 
Answering the next prompt. Letter?, will probably take longer 
unless the child is familiar with the keyboard. 

A wrong number-letter combination is answered with a 
low "uh-oh" sound and the words Try again. 

After a correct answer, the computer draws a line 
connecting the dots and plays an amusing sound effect. A 
short timing loop delays this just long enough for the child to 
look from the keyboard back to the screen to enjoy this reward. 

The finished drawing is accompanied by a short tune and 
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the remark, Good job! Draw again? Hitting a Y calls up the 
menu again. An N ends the program. 

Working with Your Child 

When introducing this activity to a child, a few additional 
explanations may be necessary. Be sure to explain the dif- 
ference between the number — point out the slash — and the 
letters O and Q. 

A tot whose visual discrimination is immature might re- 
verse letters. Connect the Dots can give that child enjoyable 
practice in overcoming this. If you notice a child confusing 7 
and L, for instance, ask, "Is that line walking on the ceiling or 
on the floor?" 

Of course, preschoolers and some kindergartners who are 
still learning their numbers and letters wUl enjoy naming them 
aloud to you. 

Children with short attention spans should try the pic- 
tures with fewer dots. Even then, be prepared to help them 
along or to complete it for them. This isn't necessarily bad, be- 
cause the time spent with children at the computer can enrich 
your relationship and will tell them that their activities are im- 
portant to you. 

There's no time limit in Connect the Dots, so don't rush 
your child. This will be a welcome relief to the child who 
equates computers with tense, timed, shoot-or-be-shot action. 

If some children's eyes have trouble following the grid 
from the dot to the coordinates, show them how to trace with 
their fingers directiy on the screen. 

Details of the Program 

It's important to type this program exactiy as shown. 

The fourth selection on the menu is a heart inscribed with 
my children's names. Substitute your own message by chang- 
ing lines 780-800. 

Following is a line-by-line program description, giving the 
starting line number of each section: 



Line Function 

100 Title and instructions 

300 Menu 

370 Draw grid 

440 Search DATA for starting point of chosen picture 
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490 

520 

550 

610 

650 

690 

730 

770 

830 

1000 

1090 

1140 

1200 



Read four pieces of DATA per dot and POKE dot 

Ask for dot's coordinates 

Response for wrong answer 

Response for right answer 

Set up butterfly 

Set up mushroom 

Set up dog 

Set up heart 

Response for completed picture 
DATA for butterfly 
DATA for mushroom 
DATA for horse 
DATA for heart 



Designing Your Own Pictures 

Part of the fun of this program is designing your own pictures. 
My five-year-old, Jonathan, contributed the mushroom found 
in Connect the Dots by coloring in squares of graph paper. 

To substitute a picture of your own, design one using the 
accompanying grid. Remember that most of your design 
should consist of a continuous line as in dot-to-dot pictures. 
Anything else must be POKEd in when the picture is first set 
up. 

Grid for Designing Pictures 



0123456 789 1011121314151617 
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For the purposes of this article, let's assume that you've 
drawn a clown to replace the dog in the listed program. Sub- 
stitute the title CLOWN for HORSE in line 330. This changes 
the menu to read C-CLOWN. 

Lines 730-750 POKE in the horse's tail and a starting 
square (SQ), Use these lines to POKE in your clown's nose, for 
example. (Hint: Since children are always asked the co- 
ordinates of a solid dot, use an open O or you will confuse 
them.) 

To compute the screen memory location of the nose, add 
the four-digit row number to the left of the grid to the column 
number above the grid. This same number + CD is your color 
memory location, 

POKE in your starting square — use screen code 160, a re- 
versed space — and assign SQ the value of the screen memory 
location of that starting square. 

Now just figure your DATA. The computer reads four 
pieces of data per dot: screen memory location (A), color of 
the line to be drawn (B), number-letter coordinates of the dot 
(E$), and the direction that the line will travel to reach the dot 
(S). Figtire each as follows: 

First, compute the screen memory location of the dot as 
explained earlier. 

The second number is the color code of the line to be 
drawn. The color code is always the number of the color's 
computer key minus 1 (black=0, red=l, and so on). Appen- 
dix G in the Commodore User's Guide, the manual that came 
with your computer, lists these color values. 

Third, look at your grid to find the number-letter co- 
ordinates of the dot. The number comes first and is found on 
the right side of the grid. Follow this with the letter. Do not 
separate the number and letter with a space. 

The last number is a STEP value. This number tells the 
computer in which direction the line should be drawn. For in- 
stance, a line moving from left to right travels one space at a 
time, so its STEP value is 1. From right to left, the line moves 
backwards one space at a time, mal^g its STEP value —1. A 
line traveling diagonally up to the left has a STEP value of 
—41 on the Commodore 64 since the computer skips back 41 
spaces before POKEing the next square. 

Use this diagram to figure STEP values. 
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STEP Values 



-40 



-41 



-39 



-1 « 




39 



41 



ff 

40 



Figure each dot's DATA in the same manner. Separate 
each piece of DATA with a comma. You must insert your new 
DATA into the proper line numbers, so check the program 
explanation listed earlier. Since you are replacing ttie horse 
with your clown, your DATA will go in lines 1140-1180. Be 
sure to leave the first piece of DATA, C, in line 1140. This is 
the DATA that the computer searches for to set the DATA 
pointer. Notice that the last set of DATA for every drawing is 
0, 0, 0, 0. Make sure this also ends any new drawings you 
may add. 

Connect the Dots 

For mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C. 

100 REM TITLE PAGE : rem 20 

110 PRINT"{CLR}g73":POKE53280,0:POKE53281,0:rem 31 
120 PRINTSPC(10) " QQQ {3 SHIFT-SPACE iQQ 

{2 SHIFT-SPACE TqQQQQ { 2 SHIFT-SPACE }QQ" : rem 40 
130 PRINTSPC ( 10 ) "Q{ SHIFT-SPACE} Q{ SHIFT-SPACE }Q 

{2 SHIFT-SPACE }Q{ 2 SHIFT-SPACE) Q{ SHIFT-SPACE } 
{SHIPT-SPACE}qT2 SPACES }Q" trem 180 

140 PRINTSPC ( 10 ) "Q {SHIFT-SPACE }Q{SHIPT-SPACE}Q 

{2 SHIFT-SPACE }Q{ 2 SHIFT-SPACE} Q{ SHIFT-SPACE } 
[2 SHIFT-SPACETQ" ~ :rem 132 

150 PRINTSPC ( 10 ) "Q { SHIFT-SPACE }Q{ SHIFT-SPACE }Q 

{2 SHIFT-SPACE }Q{ 2 SHIFT-SPACE} Q{ SHIFT-SPACE } 
{2 SPACES} {2 SHIFT-SPACE }Q" :rem 133 

160 PRINTSPC( 10 )"Q{ SHIFT-SPACE} Q{ SHIFT-SPACE }Q 

{2 SHIFT-SPACE }Q{ 2 SHIFT-SPACE} Q{ SHIFT-SPACE } 



{2 SPACES }Q{ 2 SHIFT-SPACE }Q" 



:rem 87 
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170 PRINTSPC(10)"QQQ{2 SHIFT-SPACE} QQ 

{3 SHIFT-SPACEr"Q { SHIFT-SPACE} TSHIFT-SPACE }Q 
Q" :rem 233 

180 L=m4:C=55386:CD=54272:WV=54276 :rem 220 

190 A$="Z " : POKE54296 , 15 : POKE54277 , 22 : POKE54278 , 165 
:GOSUB840 : rem 114 

200 t :rem 204 

1—1 210 REM INSTRUCTIONS : rem 44 

I \ 220 PRINTSPC(13)"{2 DOWN} {WHT} INSTRUCTIONS : " 

trem 22 

230 PRINTSPC(9) "{DOWN}WHEN THE GRID APPEARS, " :PRIN 
TSPC(10)"FIND THE SOLID DOT." :rem 141 

240 P RI NTS PC(9) "{DOWN} TYPE THE NUMBER OP THE":PRIN 
TSPC(10)"ROW AND HIT RETURN." :rem 171 

250 PRINTSPC(6)" {DOWN} THEN TYPE THE LETTER OP THE" 

:rem 126 

260 PRINTSPC( 9) "COLUMN AND HIT RETURN." :rem 109 
270 PRINTSPC(10)"{2 DOWN} {RVS}HIT ANY KEY TO PLAY. 

":POKE198,0 :rem 90 

280 GETS$:IPS$=""THEN280 ;rem 123 

290 : trem 213 

300 REM DRAW SELECTION trem 75 

310 POKE53281,6:PRINT"{CLR}"SPC(6)"{5 D0WN}g3iWH 

AT WOULD YOU LIKE TO DRAW?" :rem 83 

320 PRINTSPC(8)"g73{3 D0WN}A - BUTTERFLY (22 DOT 

S)" :rem 192 

330 PRINTSPC(9)"{D0WN}B - MUSHROOM (12 DOTS)":PRIN 
TSPC(ll) "{DOWN}C - HORSE (20 DOTS)" J rem 82 
340 PRINTSPC(10)"{DOWN}D - HEART (10 DOTS ) " tP0KE19 
8,0 :rem 73 

350 GETA$:IFA$<"A"ORA$>"D"THEN350 trem 95 

360 t trem 211 

370 REM DRAW BOARD trem 20 

380 PRINT"{CLR}g3i"SPC(ll) "{2 DOWN} ABCDEFGHIJKLM 

NOPQR{HOME}" trem 210 

390 F0RRH=1T018 : F0RT=1T018 1 POKEL+T+RH*40 , 79 1 POKEC+ 
T+RH*40, 14 t NEXT t NEXT trem 170 

400 PRINTSPC(ll)"g3i{20 DOWN} ABCDEFGHIJKLMNOPQR" 

: rem 19 

410 PRINT" {HOME} {3 DOWN}g73"; trem 129 

420 P0RI=1T018 1 PRINTSPC ( 8 ) RIGHT$ ( STR$ ( I ) , 2 ) SPC ( 19 ) 

"gG3"RIGHT$(STR$(I),2)tNEXT trem 137 

430 : trem 209 

I [ 440 REM FIND DATA trem 183 

450 RESTORE trem 189 

460 READB$tIFB$<>A$THEN460 trem 243 

»— ) 470 ONASC{A$)-64GOTO650,690,730,770 trem 139 

I J 480 FORT=lTO500tNEXT trem 246 

490 READA,B,E$,StIFA=0THEN830 trem 189 

r— ) 

i I 123 



n 
n 
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500 P0KEA,81:P0KEA+CD,B :rem 100 

510 PRINT" {HOME} {39 SPACES}" :rem 122 

520 PRINT" §73 {HOME} (■♦) NUMBER" ; JGOSUB930 :N$=IN 

$ :rem 195 

530 PRINT"{HOME}"SPC(20) "(T ) LETTER" ; :GOSUB930 :L$= 

IN$ :rem 11 

540 IPE$=N$+L$THEN610 trem 161 

550 PRINT" {HOME} {BLK}{ 15 SPACES}TRY AGAIN 

{10 SPACES}" :rem 109 

560 POKECD , 48 : POKECD+1 ,11: POKEWV ,33: POKEWV , 3 2 

rreiti 18 

570 FORT=1TO400 : NEXT: POKECD, 195 : POKECD+1 , 16 : POKEWV 

,33: POKEWV, 32 :rem 222 

580 FORT=1TO400:NEXT :reni 246 

590 FORT=1TO1200:NEXT:GOTO510 :rein 47 

600 : :rem 208 

610 FORT=1TO700:NEXT:FORT=1TO18:POKESQ,160:POKESQ+ 

CD,B:IPSQ=ATHEN630 :reni 146 

620 SQ=SQ+S:NEXT :rem 20 

630 POKEWV ,17: FORZ=9T026 : POKECD+1 , Z : POKECD, : NEXT : 

POKEWV, 16: GOTO480 : rem 84 

640 : :rein 212 

650 POKE1242 , 77 : POKE1242+CD, : POKE1244 , 78 : POKE1244 

+CD,0 :rem 126 

660 POKE1283,160:POKE1283+CD,5 :rein 166 

670 SQ=1283:GOTO480 :rem 91 

680 : :rem 216 

690 POKE1563,160:POKE1563+CD,4:POKE1564,160:POKE15 

64+CD,4 :rem 241 

700 POKE1717,160:POKE1717+CD,5 irem 165 

710 SQ=1717:GOTO480 trem 88 

720 : :rem 211 

730 POKE1436 , 74 : POKE1436+CD, : POKE1437 , 75 : POKE1437 

+CD,0 :reni 137 

740 POKEi397,85:POKE1397+CD,0 :rem 130 

7 50 POKE 1 208 , 160 : POKEl 208+CD , 2 : SQ=1 208 : GOTO480 

:rem 146 

760 : trem 215 

770 PRINT" {HOME} {7 DOWN}" :rem 249 

780 PRINTSPC(16) "{GRN}MATTHEW" : rem 70 

790 PRINTSPC(16) "{2 DOWN} g7E JONATHAN" :rem 30 

800 PRINTSPC(17) "{2 DOWN} g33EMILY" :rem 64 

810 POKE1283,160:POKE1283+CD,2:SQ=1283:GOTO480 

:rera 152 

820 ! :rem 212 

830 PRINT "{HOME} {10 SPACES }GOOD JOBl DRAW AGAIN? 

{3 SPACES}" :rem 113 

840 READB$:IFB$<>"Z"THEN840 : rem 48 

850 READPL, PH, D: IFPL=-1ANDA$="Z"THENP0KEWV, : RETUR 

N trem 29 
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860 IFPL=-1THENPOKEWV,0:GOTO890 :rem 223 

870 POKECD, PLjPOKECD+1 ,PH: POKEWV, 33 :F0RT=1T0D*75 jN 

EXT:POKEWV,32 jrem 85 

880 GOTO850 : rem 118 

890 GETY$sIPY$<>"Y"ANDY$<>"N"THEN890 : rem 135 

900 IFY$="Y"THEN310 : rem 66 

910 : trem 212 

920 PRINT" {CLR} "; :END irem 75 

930 PRINT"? ";:IN$="" :rem 93 

940 PRINT" {RVS} {OFF} {LEFT} " ? trem 234 

950 GETA$:IFA$=""THEN940 : rem 94 

960 ZL=LEN(IN$) :IFA$=CHR$(20)ANDZLTHENPRINTA$; :IN$ 

=LEPT$(IN$,ZL-1) :rem 30 

970 IPA$=CHR$(13)ANDZLTHENPRINT" "tRETURN :rem 26 
980 IF ( A$ < " "ORA$ > "R" ) OR ( A$ > " 9 " ANDA$ < "A" ) ORLEN ( IN$ 

)=2THEN950 irem 67 

990 PRINTA$; :IN$=IN$+A$tGOTO940 irem 92 

1000 : :rem 251 

1010 DATA A, 1403, 5, 71, 40, 1247, 2, 3M, -39 srem 119 
1020 DATA 1249,2,30,1,1331,2,50,41,1491,2,90,40,15 
69,2,110,39,1651,7,130,41 :rem 236 

1030 DATA 1731, 7, 150, 40, 1770, 7, 16P, 39, 1767, 7 

:rem 189 

1035 DATA 16M, -1,1603, 7, 121, -41, 1759, 7, 16E, 39 

:rem 229 

1040 DATA 1756, 7, 168,-1,1715, 7, 15A, -41, 1635, 7, 13A, 

-40,1557,7,110,-39 :rem 69 

1050 DATA 1475, 2, 9A, -41 :rem 115 

1060 DATA 1315, 2, 5A, -40, 1237, 2, 30,-39,1239, 2, 3E,1, 

1403,2,71,41,1683,5,141,40 trem 216 

1070 DATA 0,0,0,0 trem 38 

1080 t trem 3 

1090 DATA B, 1722, 5, 15H, 1,1562, 4, IIH, -40, 1559, 4, HE 

,-l,1519,4,10E,-40 trem 75 

1100 DATA 1441,4,80,-39 trem 118 

1110 DATA 1446, 4, 8L, 1,1528, 4, 10N, 41, 1568, 4, UN, 40, 

1565,4, 11K,-1, 1725,4, 15K, 40 trem 53 

1120 DATA 1730, 5, 15P, 1,1722, 5, 15H, -1,0, 0,0,0 

trem 118 

1130 t trem 255 

1140 DATA C, 1364, 2, 6J, 39, 1359, 2, 6E, -1,1398, 2, 7D, 39 

,1598,2,12D,40,1680,2,14F,41 trem 111 

1150 DATA 1681,2,140,1,1641,2 trem 154 

1155 DATA 13G,-40,1600,2,12F,-41,1560,2,11F,-40,15 

64,2,11J,1 trem 168 

1160 DATA 1687, 2, 14M, 41, 1688, 2, 14N, 1,1608, 2 

trem 123 

1165 DATA 12N, -40, 1567, 2, 1114,-41,1407, 2, 7M, -40 

trem 14 



125 



3 Education 



U 



u 



1170 DATA 1329, 2, 50,-39,1331, 0,50,1,1291, 0,40,-40, 
1290, 0,4P, -1,1208, 2, 2N, -41 :rem 244 

1180 DATA 0,0,0,0 :rem 40 

1190 : :rein 5 

1200 DATA D, 1160, 2, IF, -41, 1157, 2, IC, -1,1235, 2, 3A, 3 ] ( 

9, 1475, 2, 9A, 40, 1803, 2, 171,41 : rem 56 ' — ' 

1210 DATA 1491,2,90,-39,1251,2,30,-40,1169,2,10,-4 
1, 1166, 2, IL, -1,1283, 2, 41, 39 irem 47 

1220 DATA 0,0,0,0 :rein 35 

1230 : trem 

1240 DATA Z, 195, 16, 3, 31,21,1, 30,25,2, 135,33,2 

:rein 169 

1250 DATA 30,25,2, 31,21,2, 195,16,2, 31,21,2, 30, 
25,3, 31,21,1 :rem 233 

1260 DATA 195,16,2 irem 115 

1270 DATA 143,12,2, 195,16,1 rrem 36 

1280 DATA 0,0,3, 195,16,1, -1,0,0 :rem 205 
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Word Scramble 

Mike Salman 

Match wits with an opponent in this game as you 
play against time. For two or more players. 



"Word Scramble" is a bit different from other jumbling games 
you might have played. Instead of the computer giving you 
letters to unscramble, your opponent chooses the word you'll 
be trying to piece back together. Because the players select the 
words, the variety is almost limitless. 

A Three-Minute Puzzle 

As soon as you've typed in and saved Word Scramble (make 
sure you use "The Automatic Proofreader" program, found in 
Appendix C, to help you type in the game), you're ready to 
try to stump your opponent. Although the game is designed 
for two players, you can make up teams if there are more who 
want to play. The computer asks for the players' names and 
then tells player one to enter a word (maximum of ten letters). 
If you enter a word longer than ten letters, a message will re- 
mind you that it's not allowed. Just move the blinking square 
(the cursor) to the end of the word, and press the DEL key to 
erase the word. Then you can t5^e in another, this one less 
than ten letters. 

When the word has been scrambled, player two presses 
the space bar to see the jumbled letters. He or she has only 
three minutes to put the letter back into order. 

At the top of the screen, you'll see a display of the 
elapsed time. Below the mixed-up letters, you should see a 
bar. That's where you'll type the first letter of the word. If you 
type the wrong letter, you hear a buzz. Type the right one and 
you hear a beep; the letter then appears on the screen. 

A Ten-Point Penalty 

If you find the word within the three-minute time limit and 
have made no wrong guesses, you're rewarded with 50 points. 
For every wrong guess that you make, you lose ten points. A 



127 



3 Education 



scoreboard is displayed every second turn so you'll know 
when both players have played an equal number of turns. 
When you want to quit playing, just press the RUN/STOP 
and RESTORE keys at the same time. 

Word Scramble 

For mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C. 

1 POKE53280,6:POKE53281,1 :rem 141 

5 SN=54272 : rem 23 

6 POKESN+24 , 15 : POKESN+5 , 17 : POKESN+6 , 240 : POKESN , 100 

: rem 27 

10 PRINT"{CLR}":PRINT"{RED}{9 DOWN} {13 RIGHT }WORD 

{SPACE} SCRAMBLE" : rem 131 

20 GOSUB1000: PRINT" {CLR}" : rem 65 

25 PRINT" {RED} {2 D0WN}EACH PLAYER TAKES A TURN ENT 
ERING A{5 SPACES} COMMON "; : rem 247 

30 PRINT"W0RD (a maximum of 10 LETTERS)." : rem 103 
35 PRINT" {DOWN} THE COMPUTER WILL THEN SCRAMBLE THE 
WORD"; :rem 162 

40 PRINT"AND PRINT IT." : rem 96 

45 PRINT" {DOWN} YOU HAVE THREE MINUTES TO FIND IT." 

:rem 152 

50 PRINT" {DOWN} IF FOUND WITHIN THE ALLOTTED TIME, 

{SPACE} YOU" :rem 183 

55 PRINT "WILL BE GIVEN 50 POINTS." : rem 227 

60 PRINT" {DOWN} FOR EVERY WRONG GUESS THAT YOU MAKE 

, YOUWILL LOSE 10 POINTS . {BLU} " : rem 57 

65 PRINT" {3 D0VfN}{7 RIGHT} {RVS} { PUR} PRESS SPACE BA 

R WHEN READY{OFF}" : rem 239 

70 IFPEEK(197)<>60THEN70 :rem 131 

75 POKE198,0 :rem 153 

80 PRINT" {CLR} {4 DOWN} {GRN} PLAYER # I'S NAME{BLU}" 

:INPUTP$(0) :rem 200 

85 PRINT"{3 DOWN} {PUR} PLAYER # 2'S NAME { BLU 1 ": INPU 

TP$(1) :rem 169 

90 PRINT" {CLR} {16 DOWN} {RED} " ;P$ (C) ;" , ENTER WORD 

{SPACE} TO BE SCRAMBLED: {OFF} {BLU}" : rem 67 

92 W$="":INPUTW$:IFW$=""THENPRINT"{UP}"; :GOT092 

:rem 27 

93 IFW$="QUIT" THEN 410 :rem 254 

94 V1=LEN(W$) :rem 220 

95 IFV1>10THENPRINT"{RVS}{GRN}NO MORE THAN 10 LETT 
ERS PLEASE {OFF} {BLU}" :G0SUB 990:GOTO90 irem 117 

96 FOR K=l TO VI : V2$=MID$ (W$ ,K, 1 ) : V2=ASC( V2$ ) 

:rem 205 

97 IFV2<65ORV2>90THENPRINT"{RVS}{GRN}LETTERS ONLY 
{ SPACE }PLEASE {OFF} {BLU}" :G0SUB 990 :G0T0 90 

:rem 54 
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98 NEXT :reni 176 

100 GOSUB200 srem 163 

110 GOSUB300 srem 165 

120 T(C)=T(C)+S(C) :rein 178 

130 GOSUB400:FORI=1TO10:B$(I)="":NEXT : rem 184 

140 GOTO90 srem 55 

200 F0RI=1T0LEN(W$) s rem 126 

210 A$(I)=MID$(W$,I,1) :rem 107 

220 NEXT srem 211 

230 C$="":F0RI=1T0LEN(W$) :rem 163 

240 R=1NT(RND(1)*LEN(W$)+1) : rem 248 

250 IFB$(R)<>""THEN240 :rem 178 

260 B$(R)=A$(I) :rem 221 

270 NEXT srem 216 

271 F0RI=1T0LEN(W$) :C$=C$+B$(I) :NEXT :rem 111 

272 IFC$=W$ANDLEN(W$)<>1THENF0RI=1T0LEN(W$) :B$(I)= 
"":NEXT:GOTO230 :rem 201 

275 PRINT"{CLR} {5 DOWN} {8 SPACES} (RVS} {RED} WORD HA 
S BEEN SCRAMBLED. {OFF} {BLU}" : rem 35 

280 POKE 198,0:PRINT"{6 DOWN} {7 SPACES } {GRN} PRESS 

{SPACE} SPACE BAR WHEN READY { BLU }" : rem 234 

285 IFPEEK(197)<>60THEN285 :rem 243 

290 PRINT"{CLR} {5 DOWN} {15 RIGHT}"; :rem 66 

295 P0RI=1T0LEN ( W$ ) i PRINT " { RED } " ; B$ ( I ) ; iNEXT 

:rem 162 

298 POKE198,0: RETURN :rem 234 

300 X=95:S(C)=50 :rem 89 

310 TI$="000000" :rem 246 

320 PRINT: PRINT: PRINT: PRINT :rem 119 

325 SC=1399:CC=SC+54272 :rem 5 

330 F0RI=1T0LEN(W$) :rem 130 

335 POKESC,99:POKECC,2 : rem 75 

340 GETC$ :rem 222 

350 PRINT" {HOME} {RVS} {9 RIGHT} "MID$ (TI$ ,4, 1 ) " 

{OFF} MINUTES {2 SPACES } {RVS } "RIGHT? (TI$, 2 ) " 

{OFF} SECONDS" : rem 100 

355 IFTI$="000300"THENGOSUB500:GOTO390 :rem 228 
360 IFC$=""THEN340 : rem 214 

365 PRINT" {4 DOWN}" : rem 179 

370 IFC$=A$ ( I )THENPRINTTAB(X) A$ ( I) ; :BY=50:LN=50 :G0 

SUB600:GOTO380 :rem 141 

375 IFS(C)<10THENGOSUB550:GOTO390 :rem 10 

378 IFC$<>A$(I)THENS(C)=S(C)-10:BY=20:LN=120:GOSUB 

600:GOTO335 : rem 79 

380 X=X+1:SC=SC+1:CC=CC+1:NEXT : rem 59 

390 RETURN : rem 124 

400 IFC<>1THENC=1: RETURN : rem 11 

410 PRINT"{CLR} {5 DOWN} {17 RIGHT} {RED} {RVS } SCORES 

{OFF} {BLU}" :rem 233 

420 PRINT" {17 RIGHT} i6 Tl" :rem 38 
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430 PRINT" {DOWN} {10 RIGHT} ■■P$(0) ;TAB(25) ;P$(1) 

:rein 139 

440 PRINT"{9 RIGHT}"T(1) ;TAB(24) ;T(0) :rem 29 

445 PRINT "{9 DOWN} {13 RIGHT}PRESS {RVS}Q{0FF} TO 

{SPACE}QUIT" :rein 232 

447 PRINT "{6 RIGHT }0R ANY OTHER KEY TO CONTINUE" 

:rem 26 

450 C=0:GET R$:IF R$="" THEN 450 :rem 97 

455 IF R$="Q" THEN END :rem 123 

460 RETURN :rein 122 

500 PRINT"{CLR}{4 DOWN} {12 RIGHT} {RVS} {RED} YOUR TI 
ME IS UP{OFF} {BLU}" : rem 55 

510 PRINT" {2 DOWN} {10 RIGHT }WORD WAS "W$" . " :S (C )=0 

:rem 77 

520 FORT=1TO5000:NEXT: RETURN : rem 59 

550 PRINT" {RVS} {RED} {2 DOWN} {9 RIGHT} YOU RAN OUT O 

F POINTS { OFF } {BLU }" : rem 185 

560 PRINT"{2 DOWN}{PUR}{10 RIGHT}WORD WAS {BLU}"W$ 

"." :rem 127 

570 PORT=1TO2000 :NEXT :rem 35 

580 RETURN :rem 125 

600 POKESN+1 , BY : POKESN+4 , 33 : F0RQQ=1T0LN :NEXT : POKES 

N+4, 32: RETURN : rem 127 

990 FOR DELAY=1 TO 500:NEXT :rem 23 

1000 FORBY=50TO20STEP-1:LN=20:GOSUB600 :NEXT:F0RI=1 
TO500:NEXT :rem 73 

1010 RETURN :rem 162 
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Turtle Graphics 
Interpreter 

Irwin Tillman 

This comprehensive three-program package gives 
your 64 full turtle-graphics capabilities. It's an ex- 
cellent learning tool for children, and it offers a 
new graphics capacity for all ages. For disk or 
tape users. 



Turtle geometry is fast becoming the first exposure to comput- 
ers for many children. Instead of printing their names on die 
screen, they are more likely drawing squares and triangles. 
While such facilities are generally found with specific lan- 
guages (such as PILOT and Logo), the concept of turtle 
geometry is not unique to any single language. It can just as 
easily be used with BASIC, the language of your Commodore 
64. One of the reasons for turtle graphics's popularity is that 
it's not only a natural introduction to computing, but also an 
excellent tool to teach thinking. 

If you're not familiar with turtle graphics, the basic con- 
cept involves moving a turtle around the screen, leaving a trail 
as it goes. This is done through a series of English commands, 
such as FORWARD and RIGHT, Other commands control the 
color scheme, define loops, and allow you to assemble a series 
of commands into procedures. 

Coordinating the Turtle Programs 

"Turtle Graphics Interpreter" consists of three programs de- 
signed originally for use with a disk drive; if you are using a 
tape drive, be sure to read the appropriate section elsewhere 
in this article. 

Program 1, "Interpreter," does most of the work. It ac- 
cepts and executes the commands you enter. Program 2, "Tur- 
tle Data," POKEs in the shape tables for the turtle sprites and 
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a number of machine language routines. Finally, Program 3, 
"Turtie Boot" runs the whole package. 

If you use "The Automatic Proofreader" from Appendix 
C, typing in these programs will be much easier. Designed to 
insure error-free programs, the Proofreader makes it almost 
impossible to enter a program incorrectiy. This is important, 
especially with Program 2. If you mistype that program, the 
machine language routines which are part of it may crash the 
computer when the Interpreter is run. 

Type in each program separately, saving them all on the 
same disk (or tape — refer to the section later in this article for 
tape use instructions). Save all three programs before you try 
to run any of them. This is important: When you save Programs 
1 and 2, type SAVE "TURTLE GRAPHIC r,8 and SAVE "TUR- 
TLE GRAPHIC 2",8. The programs must be saved out under 
those filenames for Program 3, Turtle Boot, to properly access 
them. If you want to change the filenames, then make sure 
lines 150 and 170 in Program 3 reflect those changes. 

One final note about entering the turtle graphics pro- 
grams. When you type in Program 3, leave out the CHR$(31) 
in line 140 until you're sure everything is working right. This 
will make the operation of the Boot program visible. When 
you are sure that the Boot is loading and running Turtle Data 
and the Interpreter, reinsert the CHR$(31). 

Once you have all three programs saved to tape or disk, 
load and run the Boot program to run the whole package. 

Turtle Commands 

The Interpreter recognizes 30 commands, some of which can 
be abbreviated. In addition, the CLR/HOME key will clear the 
text portion of the screen and home the cursor (regardless of 
whether the SHIFT key is pressed). Pressing the fl key 
changes the border color; f3 alters the text-background color. 
In addition, trying to move from the text window into the hi- 
res screen will be treated as a CLR/HOME. The Interpreter's 
commands (possible abbreviations are in parentheses) are: 

FORWARD X (can be abbreviated as FD). Moves the tur- 
tie a distance of x in the direction it is pointing. The value of x 
must be greater than zero. The turtie will normally leave a 
traU as it moves (see PENUP, PENDOWN, PENDRAW, and 
PENERASE). You cannot leave the screen. 

RIGHT X (RT) and LEFT x (LT). Turns the turtie right 
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(clockwise) or left (counterclockwise) x degrees (x is at least 
zero). Because there are only eight turtle sprites, the turtle will 
not always seem to be pointing in exactly the direction it 
should, but it will still draw and move properly. 

SETHEADING x (SETH) and PRINTHEADING. Setting 
the heading to x will turn the turtle without changing its po- 
sition. Headings range from to 360. Straight up is 0°, and 
the values increase clockwise. PRINTHEADING returns the 
current value of the turde's heading. 

SETPOSITION X y (SETP) and PRINTPOSITION. Set- 
ting the position to x y moves the turtle without changing its 
heading. The value of x should be between —159 and 160, 
and y values range from —106 to 106. Do not separate the x 
and y values with a comma, only a space. They should not be 
enclosed in parentheses, either. Note that the range of y will 
change if you change the "crunch factor" (see the section 
"Crunching the Screen"). The turtle starts at (0,0), the center 
of the screen. PRINTPOSITION returns the values of x y. 

PENERASE (PE) and PENDRAW (PW). These commands 
control whether the turtle will erase a trail or leave one. The 
program starts in draw mode. 

PENDOWN (PD) and PENUP (PU). Normally the turtle's 
pen is down. PENUP raises it so the turtle cannot leave or 
erase a trail. You may still set draw or erase modes, but you 
will not see any effect until after you have lowered the pen 
and moved forward. 

PENCOLOR x (PC), BACKGROUNDCOLOR x (BC), 
and TURTLECOLOR x (TC). Each of these changes the color 
to X, where x is between and 15. The first two will also per- 
form a CLR/HOME. (It's not a bug, it's a feature.) There can 
be only one pen color on the screen at any time, so executing 
the PENCOLOR command will recolor all the lines that have 
already been drawn on the screen. Try a number of combina- 
tions of background and pen colors. Because of the hardware 
problems in displaying isolated pixels on the screen, the same 
pen color will appear as different hues at different points on 
the screen. Experiment — you may like the effect, which is 
known as artifacting. 

SHOWTURTLE (ST) and HIDETURTLE (HI). Hiding 
the turde is useful when you want to view a finished design. 
These commands have no effect on the turtle's color. 
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movement, position, and so on. SHOWTURTLE rehims 
the turtle to the screen. 

HOME. Moves the turtle to (0,0) and sets the heading to 0°. 

CLEAN. Erases the hi-res screen. Note that pressing 
CLR/HOME will not disturb the hi-res drawings. 

CLEARSCREEN (CS). Performs a CLEAN and a HOME. 

These commands, as well as all others that the turtle 
graphics package supports, are listed in the quick reference 
chart which follows the program listings. 

Combining Commands 

The Intrepreter will accept lines of up to 78 characters (that 
would fill up two entire lines in the text display window), and 
you may include numerous commands on each line — ^just be 
sure to use spaces between commands (no commas or colons). 
Here's a simple demonstration to animate the turtie: 

FORWARD 100 RIGHT 90 FORWARD 100 RIGHT 90 FORWARD 
100 RIGHT 90 FORWARD 100 

It could have been abbreviated as: 

FD 100 RT 90 FD 100 RT 90 FD 100 RT 90 FD 100 

These commands cause the turtle to draw a square. Because 
the Interpreter is in BASIC, the turtle won't move at break- 
neck speed. (If you are extremely ambitious, you could convert 
the plotting routine to machine language.) 

If you're willing to give up a little more time in inter- 
pretive overhead, you can use the powerful REPEAT (RP) 
command. You could rewrite the commands to draw a square 
as: 

REPEAT 4 [FORWARD 100 RIGHT 90] 
or 

REPEAT 4 [FD 100 RT 90] 

The statements you want to be repeated should be en- 
closed in square brackets and preceded by REPEAT x, where x 
is the number of times they should be repeated. REPEATS 
may be nested to a depth of 255 (although procedure calls will 
decrease this, as detailed below). For example, try the follow- 
ing commands: 

CS REPEAT 8 [REPEAT 4 [FORWARD 100 RIGHT 90] RIGHT 45] 
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Using Procedures 

The full power of turtle graphics is realized with procedures. A 
procedure is like a program; it's just a series of commands 
given a specific name. That name is added to the commands 
that the Interpreter will recognize. 

To make up a new procedure, use the DEFINE command. 
For example, type DEFINE BOX. You will be prompted with 
BOX?, after which you should type REPEAT 4 [FORWARD 
100 RIGHT 90]. The Interpreter will respond with BOX DE- 
FINED. From now on, whenever you type BOX (either from 
the keyboard or from within another procedure), the com- 
mands REPEAT 4 [FORWARD 100 RIGHT 90] will be exe- 
cuted. You could define the last design as 8BOXES, typing CS 
REPEAT 8 [BOX RIGHT 45] after the 8BOXES? prompt 
appears. 

Each time you call a procedure counts as a level of nest- 
ing (just as a repeat loop does). One very important warning: 
Don't allow a prpcedure to call itself (or to call another proce- 
dure that may eventually call the first). This will result in a 
loop that you will have to break by pressing the STOP key. 
When you restart the program by typing RUN, you will lose 
your procedure definitions and any designs on the screen. 

There are a number of commands which facilitate work- 
ing with procedures. NAMES will print the names of all the 
current procedures (limit of 255). PRINTPROCEDURE x 
(PPROC) will print the commands associated with the proce- 
dure named x. ERASE x will erase procedure x, and RENAME 
X y will change the name of procedure x to y. ERASEALL will 
erase all the current procedure definitions. 

Saving and Loading Procedures 
Procedures may also be saved to and loaded from disk or 
tape. SAVE x will save all the current procedures (a 
"workspace") to a file named x.TURTLE; LOAD x will copy 
the procedures in x.TURTLE into memory. These will be added 
to those already defined, so you can merge workspaces. Files 
may be erased from the disk with SCRATCH x, which will 
erase x.TURTLE. While these commands are operating, the 
screen will seem to go awry; ignore this as it will be restored 
when the operations are complete. 

QUIT will exit the program, but leave the machine in an 
unusual state. The screen will still be split, but this may be 
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corrected with RUN/STOP-RESTORE. Since memory is 
reconfigured, you'll want to return it to its normal state. If you 
don't want to power off and back on again, type: 

POKE 2048,0: POKE 44,8: NEW 
Crunching the Screen 

Because each brand of TV and computer monitor has a dif- 
ferent vertical aspect ratio, you may notice that your squares 
aren't square, circles look like eggs, and so on. If so, type: 

REPEAT 180 [FORWARD 2 RIGHT 2] 

If your design isn't a circle, take a centimeter ruler and 
measure the diameter along the x and y axes. (These should 
be easy to identify; just slide the ruler along the screen until 
you get the maximum measurements in the horizontal and 
vertical directions.) Divide the x value by the y value. This is 
the "crunch factor." Change line 50 of Program 1 to set CR to 
this value. If you're using a Commodore color monitor (mod- 
els 1701, 1702 or 1703), the value I've supplied in the pro- 
gram (.74) is appropriate. Note that changing this value 
changes the scaling on the y axis. The new limits will be 
±79/CR. 

For Tape Users 

You can modify the package to use a tape drive with the 
following changes: 

• Change the device number in lines 150 and 170 of Program 
3 from 8 to 1. 

• Change the word DISK to TAPE in line 80. 

• Delete lines 7000-7100, 25000-25060, and line 1280 in Pro- 
gram 1. 

• Change these lines in Program 1: 

23010 GOSUB 5000: IF WD$ <> " "THEN23018 

23014 ER=-1:PRINT"Y0U MUST SUPPLY A NAME": RETURN 

23018 0PEN2, 1,0, WD$+" .TURTLE" 

23060 CL0SE2 : RETURN 

24010 GOSUB 5000:IF WD$ <> " "THEN24018 

24014 ER=-1 : PRINT" YOU MUST SUPPLY A NAME": RETURN 

24018 0PEN2,1,1,WD$+". TURTLE" 

24040 CL0SE2 : RETURN 

Program 3 should be saved first on the tape, followed by 
Program 2, and then Program 1. When Program 3 is loaded 
and run, it will then load and run the other two programs. For 
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this autoload feature to work properly, you must save the pro- 
grams with the names shows in lines 150 and 170 — TURTLE 
GRAPHIC 2 for Program 2 and TURTLE GRAPHIC 1 for Pro- 
gram 1. Or you could change the names in those lines to 
match the names under which you saved the programs. 

There is one additional requirement for the autoload fea- 
ture to operate properly. You must leave the PLAY button de- 
pressed after Program 3 finishes loading. If you release the 
button, the PRESS PLAY message will be printed to the screen 
when Program 2 is loaded, which will prevent the loading of 
Program 1. 

How It Works 

Short of rewriting the Interpreter in machine language, there 
are still a number of modifications you may wish to make to 
customize the program. I've included these details to briefly 
give you an idea of how the package functions. 

Program 3 reconfigures memory to start loading programs 
at $4000 (16384 in decimal), leaving locations $0800-$3FFF 
(2048-16383) free for turtle sprite data. The LOADs and RUNs 
are accomplished by printing the appropriate commands on 
the screen and filling the keyboard buffer with RETURNS. 

Program 2 POKEs in the 512 bytes of sprite data below 
$1000 (4096), and then puts a number of machine language 
routines in memory beginning at $C000 (49152). The first rou- 
tine is an interrupt-driven split-screen routine. It also takes 
care of checking for the fl, f3, and CLR/HOME keys, and 
keeps text from scrolling onto the hi-res screen. This routine is 
initialized with SYS 49322. To dean the hi-res screen, use SYS 
49295. SYS 49235 will clean under the hi-res screen 
(1024-1823) and erase the text screen (1824-2023). The hi-res 
bitmap is stored beginning at 8192. 

Here are the important sections of the Interpreter (Pro- 
gram 1): 

10-170: Initialization. Frequently used variables and 
constants are created first to improve speed. Here are most of 
the variables's functions: 
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PE 


— 1 = penup, = pendown 


DR 


— 1 = pendraw, = penerase 


C 


conversion from degrees to radians 


SC 


screen base 


BL 


bytes per hi-res screen line 


BB 


bytes per hi-res screen block 


MX 


MSB (Most Significant Byte) of sprite x location 


PX 


LSB (Least Significant B3^e) of sprite x location 


PY 


sprite y location 


BG 


used for sprite x seam 


CR 


screen crunch factor 


MA 


mask 


BA 


base in computer 


C1-C7 


constants used in determining sprite position 


SP 


sprite image number (0-7) 


H 


heading 


CI 


degrees in circle 


XH,XL 


x hi/lo values 


YH,YL 


y hi/lo values 


IX,IY 


initial x,y coordinates in FORWARD command 


X,Y 


current coordinates 


SS 


sprite spacing (45°) 


HA 


one-half 


FF 


used as a mask 


PC 


procedure counter 


DH 


delta heading 


K,QQ,ZZ 


temporary numeric storage 


T$,ZZ$ 


temporary string storage 


SE 


sprite enable 


PT 


sprite pointer 


D 


distance traveled 


ER 


-1 = error, = OK 


BY 


byte to be POKEd 


RO,CO 


row, column for upper-left comer of sprite 


XS,YS 


coordinates for turtle sprite 


WD$ 


current word 


NU 


numeric input value 


PN 


procedure number temp 


MD$ 


disk read/write mode 


NP 


number of procedures in disk file 



200-620: The parser routine is the most complicated part 
of the program. NE keeps track of the nesting level. The com- 
mand line typed at the keyboard is assigned to ST$(0). This 
serves as a permanent copy of the command line. ST(0) is an 
index into this string (how much has been processed). These 
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are copied into IN$ and IN, which is what we actually work 
from. Commands are read off (and removed) from the left end 
of IN$ and executed in lines 1000-1300; IN and ST(0) are con- 
stantly updated. 

Whenever a repeat command is found, the nesting level is 
incremented, the repetition factor is put in RP(NE), and the 
contents of the loop are put in a new command line, ST$(NE). 
The parser then executes ST$(NE) as described. When we 
reach the end of a command line, we "pop" up by 
decrementing NE and continuing where we left off in the pre- 
vious command line. Advanced programmers may recognize 
this as a stack used to simulate recursion. 

Procedures are implemented in the same way. Whenever 
a procedure name is encountered, we drop down a nesting 
level, and treat the procedure's commands as the contents of a 
repeat loop with a repetition factor of 1. 

1000-1300: Identifies and executes commands. If you 
choose to permanently change the name (or abbreviation) of a 
command, do it here. This section also clears the error flag to 
(false) before each command. Any command that fails will 
set the error flag to — 1 (true). The parser keeps track of the 
flag, and aborts all pending commands when the flag is set 
true. The individual conunands all have good diagnostics, and 
you may assume that your commands have been successfully 
executed if no message to the contrary is printed. 

2000-8000: These subroutines are used by the Interpreter 
in executing various commands. 

9000-22000: Each of these subroutines corresponds to a 
single command; consulting the variable list should help clar- 
ify them. 

Sample Designs 

Here are some simple designs to get you started. The names of 
the procedures are in boldface: 

RECTANGLE: RP 2 [FD 80 RT 90 FD 30 RT 90] 

HEXAGON: RP 6 [FD 100 RT 60] 

PENTAGON: RP 5 [FD 100 LT 72] 

PENTAGRAM: RP 5 [FD 161.8 LT 144] 

TWOPENTAS: SETP -60 -80 SETH 90 PENTAGON LT 36 

PENTAGRAM 

ARROW: RECTANGLE LT 90 FD 15 LT 135 RP 2 [FD 42.4 LT 90] 
LT 45 FD 15 PE FD 28 PW 
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HONEYCOMB: SETP -30 30 SETH 330 RP 6 [RP 6 [FD 25 RT 601 
RT 120 PU FD 25 LT 60 PD] 

Program 1. Interpreter 

For mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C, 
to enter the following three programs. 

10 REM TURTLE GRAPHICS INTERPRETER :reni 202 

30 IF PEEKC 49152)0173 THEN PRINT CHR$(150) "TURTL 

E DATA DID NOT LOAD": END :rem 87 

40 X=0: Y=0: IX=0: IY=0: D=0: NU=0: By=0: BI=0: XH 

=160: XL=-159: C=t/180 :rein 121 

50 CR=.74: YH=INT( 797CR) : YL=-YH: BA=2 : BB=8: BL=3 

20: SC=8192: PE=0: DR=-1 :rem 195 

60 MA=7: H=0: PX=53248: BB=8: BL=320: SC=8192: PE= 

0: DR=-1: MA=7: H=0 : PX=53248 :reni 33 

70 PY=53249: BG=256: RO=0: CO=0: XS=0: YS=0: SP=0: 
PT=2040: SE=53269: HA=.5 :rem 189 

80 Cl=12: C2=40: C3=50: C4=28: C5=24: C6=3 : C7=5: 

{SPACE }CI=360: MX=53264: PC=0 :rem 10 

90 FF=255: SS=45 : SB=56: YM=79 : rem 88 

100 DIM ST$(255),ST(255),RP(255),PR$(255),PN$(255) 

:rein 88 

110 DEF FNR(X)=INT((X+.005)*100)/100 : rem 123 

120 REM INITIALIZE SCREEN AND TURTLE :rem 220 

130 GOSUB 3000: POKE 2, 110: POKE 53277, 0: POKE 5 

3271, 0: POKE 53287,0 :rem 146 

140 SYS 49295: SYS 49235: SYS 49322: POKE SE, 1: P 

OKE 53280,2: POKE53281,ll :rem 63 

150 PRINT CHR$(129) "TURTLE GRAPHICS INTERPRETER" 

:rem 218 

170 PRINT CHR$(30) : rem 218 

200 REM MAIN LOOP - GET A LINE OF COMMANDS AND PRO 

CESS IT :rem 193 

210 ST$(0)="": INPUT ST$(0) :rem 118 

220 NE=0: ST(0)=0: RP(0)=0: ER=0 : rem 107 

230 IP ST$(0)="" THEN 210 : rem 179 

240 REM COPY UNEXECUTED PART OF CURRENT COMMAND ST 

RING (NESTING LEVEL = NE) : rem 37 

250 REM INTO IN$ TO BE PROCESSED : rem 66 

260 IN$=RIGHT$(ST$(NE), LEN(ST$ (NE) )-ST(NE) ) : IN=0 

: rem 51 

270 GOSUB 5000{2 SPACES}FILL WD$ WITH NEXT WORD FR 
OM IN$ :rem 106 

280 IF WD$<>"" THEN 350 : rem 109 

290 REM IN$ IS EMPTY; WE ARE DONE WITH ALL COMMAND 
S IP NESTING LEVEL IS :rem 140 

300 IF NE=0 THEN 200 :rem 227 

310 REM WE HAVE COMPLETED A REPETITION OF THE CURR 
ENT COMMAND STRING ST$(NE) :rem 55 
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320 REM IF NEEDED, REPEAT. {2 SPACES}ELSE, POP NEST 
ING LEVEL :rem 156 

330 RP(NE)=RP(NE)-li IP RP(NE)>0 THEN ST(NE)=0: GO 
TO 240 :rem 42 

340 NE=NE-1: GOTO 240 : rem 97 

350 IP (WD$="REPEAT")OR(WD$="RP") THEN 440 : rem 20 
360 REM CHECK IP COMMAND IS A PROCEDURE NAME 

:rem 16 

370 GOSUB 6000: IF PN=0 THEN 410 :rem 120 

380 REM STUFF IN$ WITH PROC STRING AS IF IT WERE A 
REPEAT LOOP : rem 56 

390 IN$= "[" + PR$(PN) + "]" + RIGHT? (IN$, LEN(IN$ 
)-IN): IN=0: NU=1 :rem 28 

400 ST(NE)=ST(NE)-LEN(PR$(PN) )-2: GOTO 480:rem 103 
410 REM IDENTIFY AND EXECUTE WD$ AS A COMMAND 

:rem 78 

420 GOSUB 1000: IF ER THEN 200 : rem 248 

430 GOTO 270: REM WE ARE DONE CURRENT COMMAND 

:rem 67 

440 REM GET REPETITION FACTOR FOR REPEAT LOOP 

:rem 

450 GOSUB 4000: IN$=RIGHT$ ( IN$ , LEN( IN$ )-IN) : IN=0 

:rem 214 

460 IF (NOT ER)AND(NU>0)AND(INT(NU)=NU) THEN 480 

:rem 229 

470 PRINT "I CAN'T REPEAT SOMETHING " WD$ " TIMES" 
:IN$="": GOTO 200 rrem 113 

480 REM PUSH THE COMMAND STRING STACK (INCREMENT N 

ESTING LEVEL) :rem 115 

490 NE=NE+1: IF NE=256 THEN PRINT "NESTING TOO DEE 

P": GOTO 200 :rem 191 

495 RP(NE)=NU: ST(NE)=1: K=0 : rem 45 

500 REM FILL ST$(NE) WITH CONTENTS OF REPEAT BRACK 

ETS :rem 158 

510 ST$(NE)="": QQ=0 : K=0 : rem 1 

520 T$=MID$(IN$, ST(NE), 1) I rem 106 

530 IF T$="]" THEN K=K-1 : rem 221 

540 IF K>0 THEN ST$ (NE)=ST$ (NE)+T$ : rem 78 

550 IF T$="C" THEN K=K+1 : QQ=-1 :rem 82 

560 IF K<=0 THEN 600 : rem 227 

570 ST(NE)=ST(NE)+1 : rem 75 

580 IF ST(NE) <=LEN(IN$) THEN 520 : rem 225 

590 PRINT "MISMATCHED BRACKETS IN REPEAT": IN$="": 
GOTO 200 :rem 112 

600 IF (K<0) OR ( (K=0)AND(NOTQQ) ) THEN 590:rem 172 
610 ST(NE-1)=ST(NE)+ST(NE-1) : ST(NE)=0 :rem 142 
620 GOTO 240: REM EXECUTE THE NEW COMMAND STRING 

:rem 57 

1000 REM IDENTIFY AND EXECUTE COMMAND : rem 230 

1005 ER=0 :rem 202 
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1010 IF (VfD$="FORWARD")OR(WD$="FD") THEN GOSUB 900 

0: RETURN rrem 69 

1020 IF (WD$="RIGHT")OR(WD$="RT") THEN GOSUB 10000 

: RETURN :rem 243 

1030 IF (WD?="LEFT")OR(WD$="LT" ) THEN GOSUB 11000: 
RETURN :rem 156 

1040 IF (WD$="PENUP")OR(WD$="PU") THEN PE=-1 : RETU 

RN :rem 189 

1050 IF (WD$="PENDOWN")OR(WD$="PD") THEN PE=0: RET 

URN trem 18 

1060 IF WD$="HOME" THEN GOSUB 12000: RETURN 

:rein 123 

1070 IF vn)$="CLEAN" THEN SYS 49295: RETURN :rem 79 
1080 IF (WD$="CLEARSCREEN")OR(WD$="CS") THEN GOSUB 
12000: SYS 49295: RETURN :reni 218 

1090 IF (WD$="SETHEADING" )OR(WD$="SETH") THEN GOSU 

B 13000: RETURN : rem 233 

1100 IF (WD$="SETPOSITION" )OR(WD$="SETP" ) THEN GOS 

UB 14000: RETURN : rem 111 

1110 IF (WD$="PENERASE")OR(WD$="PE") THEN DR=0: RE 

TURN :rem 73 

1120 IF (WD$="PENDRAW")OR(WD$="PW") THEN DR=-1 : RE 

TURN :rem 72 

1130 IF (WD$="ST")OR(WD$="SHOWTURTIjE") THEN POKE S 

E, 1: RETURN : rem 76 

1140 IF (vro$="HIDETURTLE")OR(WD$="HT") THEN POKE S 

E, 0: RETURN : rem 26 

1150 IF (WD$="PENCOLOR")OR(WD$="PC") THEN GOSUB 15 

000: RETURN : rem 205 

1160 IF (WD$="BACKGROUNDCOLOR")OR(WD$="BC") THEN G 

OSUB 16000: RETURN : rem 190 

1170 IF (WD$="TURTLECOLOR")OR(WD$="TC") THEN GOSUB 
17000: RETURN : rem 210 

1180 IF WD$="PRINTHEADING" THEN PRINT FNR(H): RETU 

RN :rem 107 

1190 IF WD$="PRINTPOSITION" THEN PRINT "(" FNR(X) 

{SPACE}"," FNR(Y) ")": RETURN :rem 218 

1200 IF WD$="DEFINE" THEN GOSUB 18000: RETURN 

:rem 255 

1210 IF WD$="NAMES" THEN GOSUB 19000: RETURN 

:rem 202 

1220 IF (WD$="PRINTPROCEDURE")OR(WD$="PPROC") THEN 
GOSUB 20000: RETURN :rem 140 

1230 IF WD$= "ERASE" THEN GOSUB 21000: RETURN 

:rem 193 

1240 IF WD$="ERASEALL" THEN PC=0: PRINT "ALL PROCE 
DURES ERASED": RETURN :rem 188 

1250 IF WD$="RENAME" THEN GOSUB 22000: RETURN 

:rem 12 
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1260 

1270 

1280 

1290 
1300 

2000 
2010 
2020 

2030 
2050 

2060 
2200 

2210 
2220 
2230 
3000 
3010 
3020 
3030 
3040 
3050 

3065 
3070 
4000 
4010 

4020 

4030 

4040 

4050 
5000 
5010 
5020 
5030 
5040 

5050 

5060 



IF WD$="LOAD' 
IF WD$="SAVE" 



THEN GOSUB 23000: RETURN 

:rem 118 
THEN GOSUB 24000: RETURN 

:reni 135 

IF WD$="SCRATCH" THEN GOSUB 25000: RETURN 

:rem 98 

IF WD$="QUIT" THEN PRINT "BYE": END : rem 207 
ER=-1: PRINT "I DON'T UNDERSTAND " WD$ : RETUR 
N trera 119 

REM MOVE TURTLE :rem 189 

RO=YM-(Y*CR) ; CO=X-XL : rem 15 

IF (SP/BA)=INT(SP/BA) THEN XS=C»+C1 : YS=R0+C2 
: GOTO 2200 irem 170 

XS=CO: IF SP>C6 THEN XS=XS+C5 :rem 199 

IF (SP=C6)OR(SP=C7) THEN YS=R0+C4: GOTO 2200 

:rem 222 

YS=R0+C3 

IF XS<BG THEN POKE PX, XS 
220 

POKE PX, XS-BG: POKE MX, 1 
POKE PY, YS 
RETURN 

REM CHANGE HEADING 
H=H+DH 

IF H>=CI THEN H=H-CI: GOTO 3020 
IF H<0 THEN H=H+CI: GOTO 3030 
SP=(INT(H/SS+HA)) AND MA: 
QQ=PEEK(SE): POKE SE, 0: POKE PT, SB+SP: GOSU 
B 2000 :rem 42 

POKE SE, QQ 
RETURN 

REM NUMERIC INPUT 
REM GETS NEXT WORD FROM IN$ AS A NUMBER (NU) . 
{2 SPACES} CHECKS FOR ERROR :rem 40 

GOSUB 5000: ER=0: NU=0: IF WD$="" THEN ER=-1 : 
RETURN :rem 23 

FOR K= 1 TO LEN(WD$): T$=MID$(WD$, K, 1) 

:rem 202 

IF ((T$<"0")OR(T$>"9")) AND (T$<>"-" )AND(T$<> 
"+") AND (T$ <>".") THEN ER=-1 :rem 59 

NEXT: NU=VAL(WD$): RETURN : rem 47 

REM FILL WD$ WITH NEXT WORD FROM IN$ :rem 53 
WD$="": IF IN$="" THEN 5070 :rem 6 

IN$=RIGHT$(IN$, LEN(IN$)-IN) : IN=0 :rem 134 
ST{NE)=ST(NE)+1: IN=IN+1 : rem 120 

IF IN>LEN(IN$) THEN IN=IN-1 : ST(NE)=ST(NE)-1 : 
GOTO 5070 : rem 58 

IF MID$(IN$, IN, 1)<>" " THEN WD$=WD$ + MID$( 
IN$, IN, 1): GOTO 5030 :rem 187 

IP (WD$="")AND(IN$<>"") THEN 5020 :rem 126 



: rem 243 
POKE MX, 0: GOTO 2 
:rem 67 
:rem 148 
:rem 118 
rrem 167 
: rem 61 
:rem 72 
:rem 144 
:rem 245 
:rem 160 



:rem 99 
:rem 170 
:rem 75 
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5070 RETURN :rem 172 

6000 REM IDENTIFY PROCEDURE trem 175 

6010 REM RETURNS INDEX (PN) OF PROCNAME IN WD$ ; 

{SPACE} IF NOT A PROCNAME srem 6 

6020 K=0: PN=0 :rem 197 

6030 K=K+1: IF K>PC THEN RETURN trem 236 

6040 IF WD$<>PN$(K) THEN 6030 trem 232 

6050 PN=K: RETURN :rem 11 

7000 REM OPEN DISK FILE : rem 40 

7010 ER=0: GOSUB 5000: IF WD$<>"" THEN 7030 

:rem 138 

7020 ER=-1: PRINT "YOU MUST SUPPLY A FILENAME": RE 

TURN :rem 213 

7030 OPEN 15,8,15 :rem 88 

7040 OPEN 2,8,2, "0:" + WD$ + ". TURTLE, S," + MD$ : 

{ SPACE} INPUTt 15, QQ,T$,K,ZZ : rem 217 

7050 IF (QQ=26)AND(MD$="W") THEN PRINT "WRITE-PROT 

ECTED DISK": ER=-1 : RETURN : rem 183 

7060 IF (QQ=67)AND{MD$="W")AND(K=36) THEN PRINT "D 

ISK IS FULL.": ER=-1 : RETURN :rem 109 

7070 IF (QQ=63)AND(MD$="W") THEN PRINT "FILENAME I 

S USED": ER=-1: RETURN :rem 59 

7080 IF (QQ=62)AND(MD$="R") THEN PRINT "NO SUCH FI 

LE ON DISK": ER=-1 : RETURN : rem 224 

7090 IF QQ>19 THEN PRINT "I'M HAVING TROUBLE WITH 

{SPACE}THE DISK": ER=-1 : rem 244 

7100 RETURN :rem 168 

8000 REM GET VALID COLOR NUMBER :rem 68 

8010 GOSUB 4000 NUMERIC INPUT :rem 176 

8020 IF ER OR (NU>15)OR(NU<0) THEN ER=-1 : rem 139 
8030 RETURN :rem 171 

9000 REM FORWARD COMMAND : rem 193 

9010 GOSUB 4000: IF ER OR (NU<=0) THEN PRINT "I CA 

N'T GO FORWARD " WD$: RETURN : rem 198 

9020 IX=X: IY=Y: FOR D= TO NU: X=FNR(D*SIN(H*C)+ 

IX): Y=FNR(D*COS(H*C)+IY) :rem 232 

9030 IF X>XH THEN X=XH :rem 245 

9040 IF X<XL THEN X=XL : rem 252 

9050 IF Y>YH THEN Y=YH :rem 251 

9060 IF Y<YL THEN Y=YL : rem 2 

9070 IF PE THEN 9120 :rem 239 

9080 BY=SC + BL*INT((YM-(Y*CR))/BB) +BB*INT( (X-XL) 

/BB) + ((YM-(Y*CR)) AND MA) :rem 74 

9090 BI=MA - ((X-XL) AND MA) :rem 129 

9100 IF DR THEN POKE BY, PEEK (BY) OR BAtBI: GOTO 9 

120 :rem 113 

9110 POKE BY, PEEK(BY) AND (FF-BAtBI) :rem 27 

9120 GOSUB 2000: NEXT: RETURN trem 161 

10000 REM RIGHT COMMAND :rem 82 
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10010 

10020 
11000 
11010 

11020 
12000 
12010 

13000 
13010 

13020 

13030 
14000 
14010 

14020 

14030 
14040 

14050 

15000 
15010 

15020 

16000 
16010 

16020 

17000 
17020 

17030 
18000 
18010 
18020 

18030 

18040 

18050 



GOSUB 4000: IF ER OR (NU<0) THEN PRINT "I CA 
N'T TURN RIGHT " VTO? : RETURN :rem 205 

DH=NU; GOSUB 3000: RETURN :rein 246 

REM LEFT COMMAND :rem 

GOSUB 4000: IP ER OR (NU<0) THEN PRINT "I CA 
N'T GO LEFT " WD$ : RETURN :rem 200 

DH=-NU: GOSUB 3000: RETURN : rem 36 

REM HOME COMMAND trem 255 

X=0: Y=0: H=0: DH=0 : GOSUB 3000: RETURN 

:rein 114 

REM SETHEADING COMMAND :reni 179 

GOSUB 4000: IF (NOT ER)AND(H<=360) THEN 1303 
:rein 127 

ER=-1: PRINT "I CAN'T SET A HEADING OF " WD$ 
: RETURN :rera 84 

H=NU: DH=0: GOSUB 3000: RETURN :rem 233 

REM SETPOSITION COMMAND :rem 57 

GOSUB 4000: IF (NOT ER)AND(NU>=XL)AND(NU<=XH 
) THEN 14030 :rem 201 

ER=-1: PRINT "I CAN'T SET AN X-VALUE OF "WD$ 
: RETURN :rem 181 

QQ=NU: GOSUB 4000 :rem 248 

IF (NOT ER)AND(NU>=YL)AND(NU<=YH) THEN X=QQ: 

Y=NU: GOSUB 2000: RETURN :rem 152 

ER=-1: PRINT "I CAN'T SET A Y-VALUE OF "WD$ : 

RETURN :rem 107 

REM PENCOLOR COMMAND : rem 59 

GOSUB 8000: IF ER THEN PRINT WD$ " IS NOT A 
{SPACE} PENCOLOR": RETURN :rem 168 

POKE 2, (PEEK(2)AND15)+16*NU: SYS 49235: RET 
URN :rem 112 

REM BACKGROUNDCOLOR COMMAND : rem 57 

GOSUB 8000: IP ER THEN PRINT WD$ " IS NOT A 
{SPACE} BACKGROUNDCOLOR": RETURN :rera 166 

POKE 2, (PEEK(2)AND240)+NU: SYS 49235: RETUR 



N 



REM TURTLECOLOR COMMAND 
GOSUB 8000: IF ER THEN PRINT WD$ 
{ SPACE } TURTLECOLOR " : RETURN 
POKE 53287, NU: RETURN 
REM DEFINE NEW PROCEDURE 
GOSUB 5000 :IP WD$<>"" THEN 18030 
PRINT "I NEED A PROCEDURE NAME": 
RN 

IF PC=FF THEN PRINT "I CAN'T REMEMBER ANY MOR 
E PROCEDURES": ER=-1 : RETURN :rem 105 

GOSUB 6000: IF PN<>0 THEN PRINT WD$ " ALREAD 
Y EXISTS": ER=-1: RETURN : rem 123 

PC=PC+1: PN$(PC)=WD$: PRINT WD$;: INPUT PR$( 
PC) :rem 206 



:rem 16 
:rem 58 
" IS NOT A 
:rem 168 
:rem 28 
:rem 27 
:rem 176 
ER=-1: RETU 
:rem 194 
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18060 PRINT WD$ " IS NOW DEFINED": RETURN 
19000 REM PRINTNAMES COMMAND 
19010 PRINT "NUMBER OF PROCEDURES:" PC 
19020 IF PC=0 THEN RETURN 

19030 FOR K= 1 TO PC: PRINT PN$(K): NEXT: 



trem 40 
:rein 222 
:rein 243 
:reni 154 
RETURN 
:rein 139 
:rem 11 
:rem 162 



20000 REM PRINTPROCEDURE COMMAND 
20010 GOSUB 5000: IF WD$<>"" THEN 20030 
20020 ER=-1: PRINT "I NEED A PROCEDURE NAME": RETU 
RN :rem 187 

20030 GOSUB 6000: IF PN<>0 THEN PRINT PR$(PN): RET 



■THERE IS NO PROCEDURE 



:rem 215 
" WD$: R 
:rem 102 
: rem 70 
THEN 21030 :rem 164 
PROCEDURE NAME": RETU 
:rem 188 



URN 

20040 ER=-1: PRINT 
ETURN 

21000 REM ERASE COMMAND 
21010 GOSUB 5000: IF WD$<>"" 
21020 ER=-1: PRINT "I NEED A 
RN 

21030 GOSUB6000: IF PN<>0 THEN 21050 : rem 116 

21040 ER=-1: PRINT "THERE IS NO PROCEDURE " WD$ : R 

ETURN :rem 103 

21050 PR$(PN)=PR$(PC) : PN$(PN)=PN$(PC) : PC=PC-1 :PR 

INT WD$ " IS ERASED": RETURN : rem 145 

22000 REM RENAME COMMAND : rem 143 

22010 GOSUB 5000: IF WD$<>"" THEN 22030 : rem 166 
22020 ER=-1: PRINT "I NEED TO KNOW THE OLD NAME": 

{SPACE} RETURN :rem 117 

22030 GOSUB 6000 :rem 61 

22040 IF PN=0 THEN PRINT "PROCEDURE " WD$ " DOESN' 

T EXIST": ER=-1: RETURN : rem 69 

22050 QQ=PN :rem 118 

22060 GOSUB 5000: IP WD$<>"" THEN22080 :rem 176 
22070 PRINT "I NEED TO KNOW THE NEW NAME": ER=-1 : 

{SPACE} RETURN :rem 133 

22080 GOSUB 6000 :rem 66 

22090 IF PNO0 THEN PRINT "YOU HAVE ALREADY USED T 

HAT NAME": ER=-1 : RETURN :rem 

22100 PN$(QQ)=WD$: PRINT "RENAMING OK": RETURN 

:rem 182 

23000 REM LOAD COMMAND :rem 248 

23010 MD$="R": GOSUB 7000: IF ER THEN 23060 

:rem 137 

23020 INPUT#2, NP -rem 166 

23030 IF (NP+PC)>FF THEN PRINT "TOO MANY PROCEDURE 

S": ER=-1: GOTO 23060 : rem 251 

23040 FOR K= 1 TO NP: INPUT#2, PN$(PC+K), PR$(PC+K 

): NEXT: PC=PC+NP : rem 108 

23050 PRINT NP "PROCEDURES LOADED" :rem 14 

23060 CLOSE 2: CLOSE 15: RETURN :rem 211 

24000 REM SAVE COMMAND :rem 8 
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24010 MD$="W": GOSUB 7000 
24020 



IF ER THEN 24040 

:rein 142 
PRINT#2, PN$(K) 
:rem 114 
;rem 204 
:rem 210 
:reni 2 



PRINT#2, PC: FOR K= 1 TO PC: 
: PRINT#2, PR$(K): NEXT 
24030 PRINT PC "PROCEDURES SAVED" 
24040 CLOSE 2: CLOSE 15: RETURN 
25000 REM SCRATCHFILE COMMAND 
25010 ER=0: GOSUB 5000: IP WD$<>"" THEN 25030 

:rein 234 

25020 PRINT "YOU MUST SUPPLY A FILENAME": ER=-1 : R 
ETURN :rem 5 

25030 OPEN 15,8,15 :rem 136 

25040 PRINT#15, "S0:" + WD$ + ".TURTLE": INPUT#15, 

QQ,T$,ZZ,ZZ :rem 42 

25050 IF (QQ>19)AND(QQ<>62) THEN PRINT "I'M HAVING 

TROUBLE WITH THE DISK":ER=-1 :rem 25 

25060 CLOSE 15: RETURN :reni 243 



Program 2. Turtle Data 

100 REM TURTLE DATA, FOR USE WITH TURTLE GRAPHICS 

{SPACE} INTERPRETER. USE TURTLE BOOT : rem 95 
110 REM TO LOAD. ! rem 103 

120 FOR K= 3584 TO 4095: READ J: POKE K, J: NEXT 

:rem 142 

200 REM HEADING : rem 150 

210 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0,0,0,0,24,0,0 :rem 239 

220 DATA 60,0,0,126,0,0,255,0,1,255,128,3,255,192, 

7,255,224,15,255,240,31,255 :rem 171 

230 DATA 248,0,0,0,0,0,0,0 :rem 209 

240 REM HEADING 45 :rem 211 

250 DATA 0,63,255,0,31,255,0,15,255,0,7,255,0,3,25 

5,0,1,255,0,0,127,0,0,63,0 :rem 90 

260 DATA 0,31,0,0,7,0,0,3,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,0,0,0,0,0,0,0,0 :rem 252 

270 DATA 0,0,0,0,0 :rem 83 

280 REM HEADING 90 :rem 215 

290 DATA 0,0,0,0,0,0,224,0,0,240,0,0,248,0,0,254,0 

,0,255,0,0,255,128,0,255,192 :rem 163 

300 DATA 0,255,224,0,255,224,0,255,192,0,255,128,0 

,255,0,0,254,0,0,248,0,0,240 :rem 199 

310 DATA 0,0,224,0,0,0,0,0,0,0,0,0,0,0,0 :rem 78 
320 REM HEADING 135 :rem 2 

330 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0,0,0,0,0,3,0,0 :rem 27 

340 DATA 7,0,0,31,0,0,63,0,0,127,0,1,255,0,3,255,0 

,7,255,0,15,255,0,31,255,0 :rem 76 



147 



3 Education 



350 DATA 63,255,0 irem 63 

360 REM HEADING 180 :rem 6 

370 DATA 0,0,0,31,255,248,15,255,240,7,255,224,3,2 

55,192,1,255,128,0,255,0,0 : rem 128 

380 DATA 126,0,0,60,0,0,24,0,0,0,0,0,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0,0,0,0,0,0,0,0 :rem 58 

390 DATA 0,0,0,0,0,0,0,0,0 :rem 198 

400 REM HEADING 235 : rem 2 

410 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0,0,0,192,0,0 :rem 203 

420 DATA 224,0,0,248,0,0,252,0,0,254,0,0,255,128,0 

,255,192,0,255,224,0,255,240 :rem 199 

430 DATA 0,255,248,0,255,252,0,0 :rem 20 

440 REM HEADING 270 : rem 5 

450 DATA 0,0,0,0,0,0,0,0,14,0,0,30,0,0,62,0,0,254, 

0,1,254,0,3,254,0,7,254,0,15 :rem 128 

460 DATA 254,0,15,254,0,7,254,0,3,254,0,1,254,0,0, 

254,0,0,62,0,0,30,0,0,14,0,0 :rem 159 

470 DATA 0,0,0,0,0,0,0,0 :rem 105 

480 REM HEADING 315 : rem 9 

490 DATA 255,252,0,255,248,0,255,240,0,255,224,0,2 

55,192,0,255,128,0,254,0,0 :rem 134 

500 DATA 252,0,0,248,0,0,224,0,0,192,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0,0,0,0,0,0,0,0 :rem 82 

510 DATA 0,0,0,0,0,0,0,0,0,0,0,0 :rem 212 

600 REM SPLITSCREEN ROUTINE :rem 236 

610 FOR K= 49152 TO 49349: READ J: POKE K, J: NEXT 

:rem 254 

620 DATA 173,25,208,141,25,208,41,1,208,3,76,188,2 

54,173,18,208,16,18,169,21 :rem 166 

630 DATA 141,24,208,169,27,141,17,208,169,1,141,18 

,208,76,188,254,169,25,141 :rem 178 

640 DATA 24,208,169,59,141,17,208,169,209,141,18,2 

08,24,165,214,105,236,16 irem 75 

650 DATA 3,32,83,192,165,197,201,4,208,3,238,32,20 

8,201,5,208,3,238,33,208,32 :rem 200 

660 DATA 132,192,76,49,234,165,2,162,0,157,0,4,232 

,208,250,157,0,5,232,208,250 :rem 245 

670 DATA 157,0,6,232,208,250,162,31,157,0,7,202,16 

,250,169,32,162,201,157,31,7 :rem 238 

680 DATA 202,208,250,24,160,0,162,20,32,240,255,96 

,162,39,165,2,157,248,6,202 :rem 199 

690 DATA 16,250,96,24,169,32,133,252,169,0,133,251 

,168,145,251,200,208,251,230 :rem 2 

700 DATA 252,165,252,201,64,208,1,96,152,240,239,1 

20,169,127,141,13,220,169,1 :rem 198 

710 DATA 141,26,208,169,192,141,21,3,169,0,141,20, 

3,169,1,141,18,208,88,96 :rem 58 
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Program 3. Turtle Boot 

10 REM TURTLE BOOT 
20 POKE 53281, 6 

30 PRINT CHR$(147); CHR$(154) TAB (10) 
HICS BOOT": PRINT: PRINT 



:rem 89 
:rein 246 
"TURTLE GRAP 
:rein 197 



40 PRINT "THIS PROGRAM WILL LOAD AND RUN THE" 

:rem 134 

50 PRINT "TURTLE DATA AND INTERPRETER PROGRAMS.": 

{SPACE} PRINT :rem 183 

60 PRINT "WHILE THEY ARE LOADING, THE SCREEN WILL" 

:rem 197 

70 PRINT "BLANK.": PRINT : rem 149 

80 PRINT "DO NOT REMOVE THE DISK UNTIL THE" :rein 4 
90 PRINT "INTERPRETER PROMPTS YOU FOR YOUR FIRST" 

:rein 126 

100 PRINT "COMMAND.": PRINT: PRINT: POKE 198, 

:rem 132 

110 PRINT "PRESS " CHR$(18) "SPACE" CHR$(146) " WH 



EN READY" 
120 GETA$: IF A$="" THEN 120 
130 Q$=aiR$(34): D$=CHR$(17) 



:rein 51 
: rem 73 
:rem 152 



140 PRINT CHR$(147); CHR${31); D$; D$; D$ "POKE 16 
384, 0: POKE 44, 64: NEW" :rem 74 

150 PRINT D$; D$ "LOAD" Q$ "TURTLE GRAPHIC 2" Q$ " 
.8" 

160 PRINT D$; 
170 PRINT D$; 
,8" 

180 PRINT D$; D$ ; D$ ; D$; D$ "RUN 



D$; D$; D$; D$ "RUN" 
D$ "LOAD" Q$ "TURTLE GRAPHIC 



rem 120 
:rem 81 
1" Q$ " 
:rem 121 
CHR$(19) :rem 15 



190 FOR K= 1 
7 



TO 7: POKE 630+K, 13: NEXT: 



POKE 198, 
:rem 3 



Turtle Graphics Commands Quick Reference Chart 



Command 

FORWARD X (FD) 
RIGHT X (RT) 
LEFT X (LT) 

SETHEADING x (SETH) 

PRINTHEADING 
SETPOSITION X y (SET?) 

PRINTPOSITION 
PENERASE (PE) 
PENDRAW (PW) 
PENDOWN (PD) 



Description 

Moves turtle forward 
Turns turtle clockwise 
Turns turtle counterclockwise 
Turns turtle without changing 
position 

Returns current turtle heading 
Moves turtle without changing 
heading 

Returns current turtle coordinates 
Erase a trail 
Draw a trail 
Pen is down 
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PENUP (PU) 

PENCOLOR X (PC) 
BACKGROUNDCOLOR x (BC) 
TURTLECOLOR x (TC) 
SHOWTURTLE (ST) 

HIDETURTLE (HT) 
HOME 

CLEAN 

CLEARSCREEN 

REPEAT X [ ] (RP) 
DEFINE X 
NAMES 

PRINTPROCEDUREx (PPROC) 

ERASE X 
RENAME X y 

ERASEALL 
SAVE X 

LOADx 

SCRATCH X 

QUIT 



Pen is up — turtle cannot erase or 
draw 

Changes trail color 

Changes hi-res background color 

Changes turtle color 

Shows the turtle again after it's 

been hidden 

Makes the turtle invisible 
Moves turtle to 0,0 and sets head- 
ing to degrees 
Erases the hi-res screen 
Performs a CLEAN and a HOME 

Repeats a command 

Define a procedure 

Prints all the names of current 

procedures 

Prints the commands in 
procedure x 
Erases procedure x 
Renames procedure x with new 
name y 

Erases all current procedures 

Saves all current procedures as 

filename x.TURTLE 

Loads into memory procedures 

fi-om fUename x.TURTLE 

Erases filename X.TURTLE from 

disk 

Exit the program 



These are not commands, but keys you can press for the 
following results: 

CLR/HOME Clears the text display window 

fl Changes screen border color 

f3 Changes text background color 
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Programming 
64 Sound 

John Michael Lane 

This in-depth look at sound for the 64 provides 
you with practical methods for controlling the 64's 
SID chip from BASIC. Not only does it discuss 
sound and music in general, hut it also examines 
some techniques for programming more com- 
plicated music. 



Sight and sound are two essential components of successful 
computer games. Though the methods used to produce visual 
images differ from one computer to another, it's not too hard 
to produce an image that looks something like what you want. 
When designing space games, it's really easy, because just 
about anything can look like a spaceship. 

Producing sound, however, can be quite a different mat- 
ter. How can you produce the sound of a laser gun when 
dealing with such unfamiliar concepts as frequency, wave- 
forms, and envelopes? (Actually lasers don't make any noise, 
but you know the sound I mean.) 

Without a pretty expensive test setup, it can seem impos- 
sible to produce exactly the sound you're looking for. The 
only recourse is trial and error. Still, if you understand a little 
about the physics of sound and how it relates to the sound 
generator you're using, you can produce creditable results. 

Real Sound 

Sound is produced when physical objects vibrate. Vibrations 
are then set in motion and travel through the air as sound 
waves to our ears. Sound, in its purest form, has only two 
physical attributes, frequency and amplitude. Frequency, the 
number of vibrations per sound, is usually measured in cycles 
per sound, or hertz. The higher the frequency or pitch of the 
sound, the higher a note sounds to our ears. 



4 Sound and Graphics 



We've probably never heard a tone that consisted purely 
of one frequency. Physical objects create vibrations at fre- 
quencies which are multiples of a fundamental frequency. The 
presence and quantity of these overtones determine the tonal 
quality, the color or timbre, of the sound. It's this tonal quality 
that determines whether a noise we hear sounds like a banjo 
or a drum (although there are other factors which we'll get to 
in a minute). 

Different instruments and objects produce these overtones 
in varying amounts. Some produce overtones strong in even 
multiples of the fundamental frequency. Others produce tones 
rich in the odd multiples. There really is no limit to the variety 
of tonal qualities that exist in the real world. 

On some organs, and on some music synthesizers, you 
can specify the exact amount of each overtone you want in- 
cluded in each sound. On the synthesizer included in the 
Commodore 64, this is handled through the different types of 
waveforms that can be selected. But how does a waveform re- 
late to tonal quality? 

Waveforms 

Figure 1 shows a sine wave at the fundamental frequency (all 
pure tones are sine waves) and at the first overtone or second 
harmonic. Notice that when we add the two waveforms to- 
gether, the result no longer exactly resembles a sine wave. 

Figure 1. Fundamental and Sound Harmonics Combined 
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In Figme 2, we've continued adding sine waves of higher 
harmonics. You can see that the resulting total waveshape is 
beginning to resemble a sawtooth, one of the waveforms 
available from the Commodore 64's Sound Interface Device 
(SID). If we kept adding the higher harmonics until we 
reached infinity, we would have a perfect sawtooth. 

Figure 2. Adding Third and Fourth Harmonics Creates 
Sawtooth 
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So the shape of the wave actually defines the harmonic con- 
tent of the sound. Since all pure tones are sine waves, the 
shape of the wave generated by a sound synthesizer is ac- 
tually assembled from sine waves that are multiples of the 
fundamental frequency. 

The Commodore 64's SID has a choice of three basic 
waveforms and white noise, which is a collection of random 
frequencies. The three waveforms are a triangular wave, a 
pulse wave, and a sawtooth wave. The pulse wave has a vari- 
able pulse width, or duty cycle, which allows you additional 
freedom to vary the color of the sound produced. None of 
these waveshapes corresponds exactly to the sound produced 
by any instrument. It is also impossible to duplicate the com- 
plex harmonics of a real instrument simply by choosing one of 
these three waveforms. They do, nevertheless, give you the 
flexibility to produce a wide variety of color content, and you 
can get close to the particular sound you're seeking. 
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The harmonic content of the triangular wave diminishes 
very quickly, and the color of the wave consists almost en- 
tirely of the fundamental frequency. The sawtooth wave is the 
richest in terms of harmonics, and the pulse wave falls in be- 
tween. However, since the pulse width of the pulse wave can 
be varied, it can also contain a great variety of harmonic con- 
tent. Figure 3 illustrates the three different waveforms avail- 
able through your 64's SID chip. 



Figure 3. Waveform Shapes 
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Pulse wave has 50 percent duty cycle. 
TRIANGLE — SAWTOOTH PULSE 



Sound Envelopes 

EarUer we said that sound consists of two qualities, frequency 
and amplitude. We've discussed primary frequency and how 
harmonic overtones are defined by the shape of the wave, but 
what about amplitude, or loudness? 

We don't mean how loud the sound is simply in the sense 
of volume, but rather how quickly the sound rises to its full 
strength and how quickly it dies down again to silence. 

If you play an organ, you know that the sound of a note 
almost immediately reaches its full strength after you press the 
key and just as quickly dies down when you release the key. 
To our ears, it's just about instantaneous. 

This is quite different from plucking a guitar string, where 
the sound quickly (but not quite instantaneously) reaches its 
full height and then slowly dies down, so that the tone contin- 
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ues several seconds after the note was struck. Violins, xylo- 
phones, banjos, and woodwinds are all different in the way 
that the sound rises, is sustained, and then dies down. Generally, 
these qualities are referred to as the envelope of the sound. 

If you look at Figure 4, you'll see how a sound looks if 
you could feed it into an oscilloscope. We can see the shape of 
the wave. The shape of the envelope defines the characteris- 
tics of a sound in a manner very similar to the way that har- 
monic content defines a sound. 

Figure 4. The Envelope Defines the Height of Individual 
Waveforms 
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The Commodore 64 uses a four-part sound envelope (see 
Figure 5). The first phase, called the attack, is the length of 
time it takes for the sound to reach its full volume. The second 
phase is the decay. During this phase, the sound decreases 
from the peak achieved during the attack phase to the level 
set for the sustain phase. During the third or sustain phase, the 
volume remains constant. In the final phase, the release, the 
volume decreases to zero. 
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Figure 5. Attack/Decay/Sustain/Release (ADSR) 
Envelope 
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Not all sounds have this four-part volume envelope. 
Some have only an attack and release phase, and some (like 
the organ) have only the sustain phase. We can achieve all 
these on the Commodore 64 simply by setting the other 
phases to zero. 

The Commodore's SID allows us to set the attack, decay, 
and release phases to any one of 15 values or to zero. The 
times that correspond to the 15 values can be seen in Table 1. 
The times vary from milliseconds to seconds. Note that the ta- 
ble does not include times for the sustain phase. The SID chip 
allows you to set a sustain volume level, but you must control 
the length of the sustain by opening and closing a gate. That 
gate is bit of the fourth register in the SID chip. We'll cover 
this in greater detail later. 

To turn the sound on in the SID chip, you must open the 
gate. As soon as the gate is opened, the sound level begins to 
rise at a rate determined by the attack. Once the peak level is 
reached, the sound begins to decline to the level set for the 
sustain. The rate at which it declines is defined by the decay. 

However, if the sustain level is set at 15 (the highest 
choice), the decay phase is essentially meaningless because the 
sustain level and the peak of the attack phase are the same. 
Thus the decay phase has nowhere to decay to. 
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Table 1. ADSR Envelope Values and Times 
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Once the decay phase is complete, the sustain cycle will 
continue as long as the gate is open. When the gate is closed, 
the release phase begins and the volume falls from the sustain 
level to zero. So, how long is the sustain phase? 

Obviously, the sustain phase lasts as long as the time that 
the gate is open, minus the time required for the attack and 
decay phases. If you close the gate too soon, you may have no 
sustain phase at all. If you close it really early, you'll cut short 
the decay or the attack and decay phases as well. Figure 6 shows 
several combinations of attack, decay, and release values and 
how they interact with the gate to produce the souund envelope. 
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Figure 6. Standard Four-Part Envelope 
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Figure 6b. Pianolike Envelope 
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Figure 6c. Pianolike Envelope 
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Programming Sound 

The SID is really a quite amazing chip. It uses just 29 pro- 
grammable registers, and with those (you won't even use 
them all) you can produce a great variety of sounds. 

For our purposes, we'll consider only the first 21 registers 
in the SID chip. We'll also briefly consider the twenty-fifth 
register, which sets the volume (no volume, no sound). 
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The first 21 registers break down into three groups of 
seven. That's because the SID has three voices, and the seven- 
register groups perform almost the same function for all three 
voices. That makes it far easier — all you have to learn is how 
to program seven registers. 

Table 2 gives the functions of the seven register groups. 
Registers and 1 hold the frequency. Register contains the 
least significant byte, and register 1 the most significant byte. 
With two registers you can store only numbers less than 
65512. That sounds pretty high, but the frequency contained 
in the two registers relates to the internal oscillator (clock) of 
the Commodore 64 and does not translate to the frequency we 
are familiar with in terms of cycles per second (hertz). To 
translate into hertz, you must multiply the frequency con- 
tained in the two registers by .059605. This means that the 
highest frequency the SID can produce is 3904 hertz. The fre- 
quency can go as low as zero, but the sound system in your 
TV set probably won't reproduce a frequency of less than 50 
hertz (or 840 to the SID). 

The easy way to load the frequency into the two registers 
is to use this program segment: 

100 S=54272:REM (STARTING ADDRESS OF SID CHIP) 
110 F0=FR/. 059605: REM FR=FREQUENCY IN CYCLES/SECON 
D 

120 F2=INT(F0/256) :F1=F0-256*F2 
130 POKE S,Fl!POKE S+1,F2 

If you already know the frequency in terms of the SID chip, 
you can omit line 110. 

The next two registers (2 and 3) contain the pulse width 
of the rectangular pulse wave. This value is a 12-bit number 
with the eight least significant bits stored in register 2, and the 
four most significant stored in bits 3-0 of register 3. The four 
remaining bits of register 3 are not used. If you are using 
something other than a pulse wave, you don't have to worry 
about doing anything with these two registers. 

The pulse width can take a value from to 4095, which 
corresponds to a range of 0-100 percent for the duty cycle. A 
value of 2048 implies a 50 percent duty cycle and generates a 
square wave. If these two registers are set to zero and the 
pulse wave is selected, no sound will be produced. 
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The following program segment can be used to set the 
pulse width: 

140 P0=DC*4095/100:REM DC=DUTY CYCLE IN % 
150 P2=INT(P0/256) :P1=P0-256*P2 
160 POKE S+2,P1:P0KE S+3,P2 

A duty cycle of 10 percent will sound exactly the same as a 
duty cycle of 90 percent. For some advanced applications, the 
two may sound different, but for a solitary pulse wave, there 
will be no difference. 

Table 2. Map of Sound Interface Device (SID) Registers 

ADDRESS RES * BIT 7 BIT 6 BIT S BIT 4 BIT 3 BIT 2 BIT 1 BIT 



VOICE OKE 

FREQUENCY REBISTERS 

54272 t< FREQUENCY LOH ORDER BYTE >3 

54273 I t< FREQUENCY HIBH ORDER BYTE >J 

PULSE NIDTH REBISTERS 

54274 2 C< PULSE NIDTH LOU ORDER BYTE >J 

54275 3 I< BITS 7-4 NOT USED— >]C HIOtCST 4 BITS OF PULSE NIDTH] 

CONTROL RESISTER 

54276 4 CNOISEICPULSE KSAHTM.ICTRIANSIC TEST ][ RINB ]C SYNC H BATE 1 
ATTACK/DECAY REBISTER 

54277 S C< ATTACK VALUE >J[<-r- DECAY VALUE >3 

aiSTAIN/RELEASE RESISTER 

54278 4 C< SUSTAIN LEVEL >K< RELEASE VALUE >] 

VOICE TWO 

FREQUENCY REGISTERS 

54279 7 t< FREQUENCY LOH ORDER BYTE >] 

S42B0 S [< FREQUENCY HI6H ORDER BYTE >J 

PULSE NIDTH REBISTERS 

54281 9 [< PULSE NIDTH LON ORDER BYTE >1 

54282 10 C< BITS 7-4 NOT USED >][ HIBHE8T 4 BITS OF PULSE NIDTH] 

CONTROL REBISTER 

54283 11 [NOISEltPULSE ItSAMTH.lCTRIANSlI TEST ]I RINS ]C SYNC 1[ SATE ] 
ATTACK/DECAY REGISTER 

54284 12 t< ATTACK VALUE >]!< DECAY VALUE >J 

SUSTAIN/RELEASE REBISTER 

54285 13 t< SUSTAIN LEVEL >][< RELEASE VALUE >] 

VOICE T1«EE 

FREQUENCY REBISTERS 

S42S& 14 C< FRESIENCY LOH ORDER BYTE >] 

S4287 15 [< FREQUENCY HIBH ORDER BYTE » 

mjBE NIDTH REGISTERS 

5428S 16 I< -r- PULSE NIDTH LOW ORDER BYTE >] 

54289 17 C< BITS 7-4 NOT USED >]t HIBHEBT 4 BITS OF PULSE NIDTH] 

CONTROL REGISTER 

54290 18 CNOISEICPULSE lESANTH. ](TRIAN8]C TEST ]C RINS ][ SYNC ]C SATE ] 
ATTACK/DECAY REBISTER 

54291 19 C< ATTACK VALUE >][< DECAY VALUE >] 

SUSTAIN/RELEAK RESISTER 

54292 20 t< SUSTAIN LEVEL >]C< RELEASE VALUE >] 

VOLUME REBISTER 

5429& 24 [-NOT COVERED IN THIS ARTICLE-] [< VOLUME CONTRX >1 

Now that we've covered the general aspects of sound and 
music programming on the 64, let's look at some more com- 
plicated techniques. 

The Control Register 

The control register (register 4 in Table 2) is the most complex 
register in the chip. Each of the eight bits in this register has a 
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has a different function. Dealing with individual bits within a 
one-byte register is often a problem for BASIC programmers. 
One very easy way to approach the problem is to use the 
following: 

170 B(0)=1 

180 B(1)=0 

190 B(2)=l 

200 B(3)=0 

210 B(4)=0 

220 B(5)=0 

230 B(6)=0 

240 B(7)=l 

250 FOR 1=0 TO 7 

260 Q=Q+B(I)*2tl 

270 NEXT I: POKE S+4 , Q 

This is not a very efficient way of programming, but by 
defining the bits we want (that is, B(I) where I = the bit num- 
ber) in terms of a 1 and those we don't want in terms of a 0, 
this will work. It will be somewhat slow and cannot be used 
in a loop that must execute quickly, which is usually the case 
when doing musical programming. 

A quicker method is to think of the bits in terms of their 
values in an eight-bit binary number. Bit has a value of 1, 
bit 1 is 2, bit 2 is 4, bit 3 is 8, and so on, until bit 7 equals 
128. In the lines above, we set bits 0, 2, and 7 on; to use the 
more efficient technique of bit values, we can simply add their 
values: 1-1-4-1-128 = 133. POKEing 133 into the register then 
sets those three bits. It's much simpler, but requires you to 
add up the bit values before writing the program. 

The first bit of the control register, bit 0, acts as the gate 
to turn the sound on and off. Remember that when the gate is 
opened (when bit is set to 1), the attack phase of the volume 
envelope begins. When the gate is closed (bit is set to 0), the 
release phase of the envelope is triggered. If the gate is closed 
prematurely, the sustain, decay, and even a portion of the at- 
tack phase may be omitted. Opening and closing the gate is 
actudly very easy. Just remember that POKEing an odd value 
in register 4 turns ti\e gate on and that POKEing an even value 
turns the gate off. 

Watch the Timing 

Be careful of turning the gate off by POKEing zero into the 
register. That will also clear the waveform bits (which we'll 
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discuss in a second) and will result in your envelope having 
no release phase. 

The next bit, bit 1, is the sync bit. If this bit is on, the out- 
put from voice 1 will be synchronized with the output from 
voice 3. Sync in this case means that the output of voice 1 will 
be replaced with a logical AND of the output of voice 1 and 
voice 3. Another way to think of it is that voice 1 is turned on 
and off with the frequency of voice 3. In order for this bit to 
have any effect, voice 3 must be set to a frequency less than 
voice 1. The best way to understand this effect is to listen to 
it. Program 4, "Laser," contains a demonstration using the 
sync bit. When using sync, the lower frequency will predomi- 
nate. The effect works best when the lower frequency is 10-50 
percent of the higher. 

The sync bit has a slightly different effect in the other two 
voices. In voice 2 it produces a sjmc of voice 2 with voice 1, 
and in voice 3 it produces a sync of voice 3 with voice 2. 

The next bit, bit 2, is the ring modulation bit. When this 
bit is set on, it produces nonharmonic overtones that sound 
like a bell. In order for this effect to take place, the triangular 
waveform must be selected for voice 1, and voice 3 must have 
a frequency other than zero. 

Ring modulation in the other voices works like the S5tic 
bit; that is, for voice 2 to be ring modulated, voice 1 must 
have a nonzero frequency. For voice 3, voice 2 must be non- 
zero. In all cases the triangular waveform must be selected for 
the affected voice. 

Bit 3 in the control register is the test bit. Setting the test 
bit to one will turn off the sound generator. This technique will 
generally be used only by machine language programmers. 

Bits 4-7 are the waveform bits. Turning on bit 4 will se- 
lect the triangular waveform; bit 5 will select the sawtooth; bit 
6 the pulse; and bit 7 white noise (like the hissing sound you 
hear between stations on a radio). 

At this point you must be asking yourself "What happens 
if more than one bit is selected?" The answer is that the two 
(or more) waveforms will be ANDed together (a logical AND 
will be done on the waveforms). Commodore cautions that 
selecting more than one waveform while using the white noise 
waveform could cause the oscillator to go silent, so don't com- 
bine waveforms using the white noise waveform. Even while 
avoiding the white noise waveform, it's still possible to gen- 
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erate four more waveform shapes using combinations of the 
sawtooth, triangular, and rectangular pulse waveforms. How- 
ever, the volume declines significantiy when combining 
waveforms. 

Register 5 contains the attack and decay values for voice 
I's sound envelope. (Registers 12 and 19 serve the same func- 
tion for voices 2 and 3 respectively.) The four-bit attack value 
is held in bits 7-4. The four-bit decay value is held in bits 3-0. 
The values can be loaded like this: 

300 A=13:D=5:REM ATTACK=1 3 , DECAY=5 
310 POKE S+5,16*A+D 

Register 6 contains the sustain level and the release value 
for voice 1. (Again, registers 13 and 20 are used for voices 2 
and 3.) As above, the sustain level is held in bits 7-4, and the 
release value in bits 3-0. Program them in the following manner: 

320 SU=13:R=4:REM SUSTAIN=13 ,RELEASE=4 
330 POKE S+6,16*SU+R 

We've covered the seven register groups and shown how 
to load them. Program 1, "Twiddle," allows you to explore all 
possible combinations using these seven registers. The pro- 
gram lets you set and change any of the values and then listen 
to an eight-note scale governed by those values. If you sit 
down and play with the program for a couple of hours, you'll 
get a good understanding of how changing the SID chip 
parameters affects a sound. The program is also useful for 
demonstrating how to play a tune within a BASIC program. 
(Note that pressing almost any key not displayed on the 
screen will play the sound scale you've set up.) 

From Sound to Music 

To play actual music, you generally write a program which 
will load all the parameters except the waveform and the fre- 
quency. At this point you select the note to be played and 
POKE the appropriate values into the frequency register. Then 
you POKE the waveform value plus one (16+1 = 17 for trian- 
gular, 33 for sawtooth, 65 for pulse, and 129 for white noise) 
into register 4 (the control register). Adding a 1 causes the gate 
bit (bit 0) to be turned on, and the tone begins. The program 
waits a certain period of time and then POKEs the waveform 
value (16, 32, 64, or 128) into the register. By POKEing an 
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even number into the register we turn the gate off, and the 
note begins its release phase and gradually dies out (according 
to the release value that you've set). 

A simple way to time the note is to use a delay loop. An 
empty loop (like the one below) will execute 1000 cycles in 
just about one second. 

400 FOR 1=1 TO 1000:NEXT'I 

Therefore, each cycle is just about 1/1000 second (or a milli- 
second). To turn the note on and off, the program line will 
look like this: 

400 POKE S+4,17:F0R 1=1 TO 250 :NEXT: POKE S+4,16 

The above program line will play a note for about one quarter 
of a second. 

This technique works well for a single voice, but it may 
not work at all for more than one voice. The problem is that 
while the computer is timing the duration of one note, it can- 
not be separately timing voices 2 and 3. We could fill the 
empty loop with timing routines for voices 2 and 3, but that 
would change the execution time for the loop and throw the 
timing off. 

A second technique is to use the internal timer of the 
Commodore 64 through the use of variable TI. The variable TI 
is updated automatically on the Commodore 64 and increases 
by a value of one every 1 /60 second. We can use this timer to 
time the duration of our notes: 

500 T0=TI:REM INTIALIZE THE VARIABLE "T0" 

510 T0=T0+D:REM INCREASE "T0" BY DURATION OF THE F 

IRST NOTE - D 
520 IF T0<=TI THEN GOSUB 1100 :REM CHECK IF THE TIM 

E IS UP 

525 REM IF SO SUBROUTINE 1100 WILL CHANGE NOTES 
530 GOTO 520: REM IF NOT CHECK TIME AGAIN 

The key to using this routine is to make sure that the sub- 
routine executes quickly, at least while using multiple voices. 
Program 2, "Tune," illustrates this technique using all three 
voices. But this method isn't problem-free. We want to re- 
produce the rhythm of the original tune as accurately as pos- 
sible. It's physically impossible to change the frequency of all 
three voices at once. Using BASIC, it's somewhat difficult to 
change all three voices in less than 1 /6 second. For that rea- 
son, we split all the frequencies into the higher- 
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and lower-order bytes before the tune begins. We can then 
change the frequency of all three voices in about 1/10 second. 
For most tunes that will be satisfactory. However, for a fast 
tempo, you might have to omit the second or third voice in 
order to maintain the rapid changes of the first voice. 

Sound Effects 

Let's briefly explore sound effects: the noise of a firing laser, 
or an explosion, siren, or any other sound we need. How can 
we do it? 

Unfortunately, there's no direct way. The best approach is 
trial and error. Listen to the sound carefully. Most sounds in 
nature cannot be duplicated simply by selecting the right 
waveform and envelope. Generally, the frequency is also ac- 
tively changing during the sound's life. While you listen to (or 
think about) the sound you want, consider what's happening 
to the frequency. Is it rising or falling? How quickly? 

Also consider the volume. Many volume envelopes can- 
not be duplicated using the attack/decay/sustain/release en- 
velope. You'll often have to change the volume level through 
program control, using the volume register (register 24). 

Programs 3 and 4, "Blast-off" and "Laser," illustrate one 
approach. In Blast-off, both the frequency and volume are 
modulated by the program. Laser demonstrates the sync fea- 
ture and modulates the frequency to produce the laser sound. 
Both programs were written after much trial and error. 

Many authors, when converting programs to the 64, sim- 
ply drop the sound effects or stop at a sound which is only 
vaguely like the one they want. Be persistent; the 64 can ac- 
curately produce almost any sound. As you gain experience, 
you'll find that the trial and error phase will decrease 
significantly. 

Twiddle (Program 1) illustrates the basic methods of loading 
the SID registers and lets you experiment by changing the wave- 
form and ADSR envelope while listening to the musical scale. 

Tune (Program 2) uses the three voices to play an English 
folk tune. Don't be discouraged by the long list of DATA 
statements. Voice 1 repeats the same statements four times, 
and there is considerable repetition in voices 2 and 3. Once 
you've typed in the first few DATA statements, you can sim- 
ply change the line numbers with the screen editor to produce 
the remainder. 
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Tune can be used to produce any melody by changing the 
values in the DATA statements. Each note is represented by a 
pair of values. The first represents the duration of the note (in 
sixtieths of a second). A value of 30-40 is appropriate for a 
quarter note. The second value is the frequency of the note. 
Appendix E in the Commodore 64 Programmer's Reference Guide 
offers a simple frequency table. Below are the values for the 
12-semitone scale starting at middle C. 

C— 4291 C#— 4547 

D— 4817 D#— 5103 

E— 5407 

F— 5728 F#— 6069 

G— 6430 G#— 6812 

A— 7217 A#— 7647 

B— 8101 

Notes for other octaves can be calculated by doubling or 
halving these values, depending upon whether you're going 
one octave up (doubling) or one octave down (halving). 

It's useful to convert one measure of music to one DATA 
statement if you can. This makes it easier to match the voices. 

Voice 1 is the sound of a flute, voice 2 is a mandolin, and 
voice 3 is a guitar. 

Blast-off and Laser are supposed to produce the sound of 
their titles. They're pretty straightforward. 

Program 1. Twiddle 

For mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C, 
when you type in the following four programs. 

5 S=54272 :rem 201 

7 DIM A(15),D(15) :rem 48 

10 PORL=STOS+24:POKEL,0:NEXT :rem 53 

15 GOSUB 1000 : rem 167 

17 GOSUB 1100 :rem 170 

18 GOSUB 1200 :rem 172 
20 PRINT"{CLR}";TAB(5);"T0UCH W FOR WAVEFORM" 

:rera 5 

A FOR 
S FOR 
T FOR 
R FOR 
D FOR 
P FOR 
B TO 
+ 



30 
40 
45 
50 
60 
70 
72 
75 



TAB(5)"T0UCH 
TAB(5) "TOUCH 
TAB(5)"T0UCH 
TAB (5) "TOUCH 
TAB(5)"T0UCH 
TAB ( 5 ) "TOUCH 
PRINT TAB(5)"T0UCH 
PRINT TAB(5)"T0UCH 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



ATTACK RATE" 
SUSTAIN LEVEL' 
SUSTAIN TIME" 
RELEASE" 
DECAY" 

PULSE WIDTH" 
SET DEAD TIME" 



OR - FOR FREQUENCY 



:rera 32 
rem 238 
rem 171 
:rem 80 
I rem 168 
:rera 88 
:rem 40 
CHANGE" 
:rem 85 
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80 GET A$:IF A$=""THEN80 
82 IF A$="W"THEN 200 
84 IF A$="A" THEN 250 



IP A$="S" THEN 300 

IF A$="R" THEN 350 

IF A$="D" THEN 400 
IF A$="P" 



86 
88 
90 

92 IF A$="P" THEN 450 
94 IP A$="T" THEN 500 

96 IF A$="+" THEN GOSUB 1400 

97 IF A$="B" THEN 550 

98 IP A$="-" THEN GOSUB 1450 
100 REM 

105 POKE S+24,15 

110 POKE S+5,16*A+D 

120 POKE S+6,16*SL+R 

130 POKE S+3,INT(P/256) 

140 POKE S+2,P-256*INT(P/256) 

150 FOR 1=1 TO 8 

160 IFINT(F(I) )<=65536THENPOKE S+1,INT(F( 

170 POKE S,F(I)-256*INT{F(I)/256) 

180 IFINT(P(I) )<=65536THENPOKE S+4,2T(W+3 

185 F0RJ=1 TOT: NEXT 

187 POKE S+4,2t(W+3) 

188 F0RJ=1T0B:NEXT 
190 NEXT I: GOTO 20 

200 PRINT "WAVEFORM IS";" - ";V? 
202 PRINT "1=TRIANGLE" 
204 PRINT "2=SAWT00TH" 
206 PRINT "3=PULSE" 
208 PRINT"4=N0ISE" 

210 INPUT "ENTER VVAVEFORM (1-4) ";W 
215 IFW<1 ORW>4THEN210 
220 GOTO 100 

250 PRINT "ATTACK RATE IS"; A 

260 INPUT"ENTER ATTACK RATE (0-15 )";A 

265 IFA<0ORA>15THEN260 

270 GOTO 100 

300 PRINT"SUSTAIN LEVEL IS";SL 



310 INPUT"ENTER SUSTAIN LEVEL (0-15)" 
315 IFSL<0ORSL>15THEN310 
320 GOTO 100 

350 PRINT'' RELEASE RATE IS";R 

360 INPUT "ENTER RELEASE RATE (0-15)"} 

365 IPR<0ORR>15THEN360 

370 GOTO 100 

400 PRINT "DECAY RATE IS";D 

410 INPUT"ENTER DECAY RATE (0-15) ";D 

415 IPD<0ORD>15THEN410 



;SL 



: rem 243 
:rem 247 
:rem 232 
:rem 248 
: rem 254 
trem 229 
: rem 248 
:rem 250 
:rem 131 
:rein 240 
:rem 140 
trem 117 

:rein 59 
:rem 225 

: rem 79 
:rera 248 

:rem 60 

:rem 15 
I)/256) 
:rem 229 
:rein 2 

)+l 
:rem 244 
:rem 173 
:rein 67 
:rem 158 
:rem 247 
: rem 164 
:reni 41 
:rem 79 
:reni 98 
:rem 90 
:rem 193 
:rem 23 
:rem 94 
: rem 100 
:rem 94 
s rem 38 
trem 99 
:rein 121 
:rem 115 
:rem 218 
:rem 95 
:fem 191 
:rem 185 
:rem 74 
:rem 100 
:rem 18 
:rem 12 
:rem 38 
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420 GOTO 100 trem 96 

450 PRINT"PULSE WIDTH IS" ; 100*P/4095 i rem 86 

460 INPUT"ENTER PULSE WIDTH (0-100) ";P :rem 191 
465 IPP<0ORP>100THEN460 : rem 115 

470 P=P*4095/100 :rem 52 

480 GOTO 100 :rem 102 

500 PRINT "SUSTAIN TIME IS" fT; "MILLISECONDS" 

:rera 236 

510 PRINT"MINIMUM TIME FOR ATTACK/DECAY CYCLE IS:" 

:rem 44 

515 PRINT A(A)+D(D) ; "MILLISECONDS" : rem 4 

520 INPUT "ENTER TIME IN MILLISECONDS ";T :rem 196 
530 GOTO 100 :rem 98 

550 PRINT"DEAD TIME IS" ;B; "MILLISECONDS" :rem 198 
560 INPUT" INPUT DEAD TIME IN MILLISECONDS" ; B 

:rem 214 

570 GOTO 100 :rem 102 

1000 W=1:A=8:D=6:R=9:SL=12:P=2000:T=302 :rera 203 
1010 RETURN :rem 162 

1100 F0RI=1T08:READF{I) :NEXT :rem 234 

1110 DATA 4291,4817,5407,5728,6430,7217,8101,8538 

:rem 155 

1120 RETURN :rem 164 

1200 FOR I=0TO15:READ A(I) :D(I)=3*A(I) :NEXT 

:rem 160 

1210 DATA 2,8,16,24,38,56,68,80,100,250,500,800,10 
00,3000,5000,7000 :rem 186 

1220 RETURN : rem 165 

1400 FOR I=lTO 8:F(I)=F(I)*2:NEXT:RETURN :rem 100 
1450 FOR I=1T08:P(I)=F( I)/2 :NEXT:RETURN : rem 110 
2000 T0=TI :rem 32 

2010 FOR I=1TO1000:NEXT :rem 62 

2020 PRINT TI-T0 :rem 159 

Program 2. Tune 

5 DIM D(3,200),F(3,200),G(3,200) :rem 254 

10 S=54272 :rem 245 

20 FORI=0TO24:POKES+I,0:NEXT :rem 13 

30 F0RI=1T03 :rem 215 

40 J=l :rem 28 

50 READ D(I,J),F(I,J) :REM GET FREQ & DURATION 

:rem 15 

55 G(I,J)=INT(F(I,J)/256) :F(I, J)=F(I, J)-256*G(I, J) 

:rem 202 

60 IF F(I,J)=0 AND D(I,J)=0 THEN 90 : rem 228 

70 J=J+1:G0T0 50 : rem 108 

90 PRINT "VOICE";I;" ";J;" NOTES" :rem 64 

100 NEXT I :rem 25 

110 POKES+24,15 :rem 55 
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200 REM SET VOICE ONE : rem 186 

210 W1=16:REM TRIANGLE WAVEFORM : rem 154 

220 POKES+5,6*16+0:REM ATTACK=6 , DECAY=0 :rem 12 
230 POKES+6,10*16+0:REM SUSTAIN=10, REIiEASE=0 

:rem 110 

300 REM SET VOICE TWO s rem 211 

310 W2=32:REM SAWTOOTH WAVEFORM :rem 189 

320 POKES+12 ,0*16+9 : REM ATTACK=0 , DECAY=9 : rem 65 
330 POKES+13, 00*16+0 :REM SUSTAIN=00,RELEASE=00 

:rem 203 

400 REM SET VOICE THREE : rem 82 

410 W3=64:REM RECTANGULAR WAVE :rem 79 

420 POKES+17,3:REM DUTY CYCLE 20% :rem 101 

430 POKES+19,3*16+10:REM ATTACK=3 ,DECAY=10 : rem 160 
440 POKES+20, 0*16+0: REM SUSTAIN=0 : RELEASE=0 

:rem 104 

500 J=0:K=0:L=0:T1=TI:T2=T1:T3=T1 :rem 207 

600 IF T1=<TI THEN GOSUB 1100 :rem 49 

610 IF T2=<TI THEN GOSUB 1200 : rem 52 

620 IF T3=<TI THEN GOSUB 1300 :rem 55 

630 GOTO 600 :rem 104 

1000 ON I GOTO 1100,1200,1300 :rem 129 

1100 J=J+1:T1=T1+D(1,J) :rem 215 

1115 IFD(1,J)=0 THEN P0KES+4,W1 :P0KES+11 ,W2 :POKES+ 
18,W3:END :rem 217 

1117 P0KES+4,W1 :rem 95 

1120 POKES,F(l» J) :P0KES+1,G(1, J) irem 51 

1140 P0KES+4,W1+1: RETURN irem 209 

1200 K=K+1 :T2=T2+D(2,K) : rem 222 

1210 POKE S+11,W2 :rem 136 

1220 POKE S+7,F(2,K) :POKES+8,G(2,K) :rem 161 

1240 P0KES+11,W2+1:RETURN :rem 1 

1300 L=L+1 :T3=T3+D(3,L) : rem 229 

1310 POKES+18,W3 :rem 145 

1320 POKES+14,F(3,L) :POKES+15,G(3,L) :rem 2 

1340 POKES+18,W3+l:RETURN : rem 10 

2000 REM NOTES FOR VOICE ONE : rem 110 

2010 DATA 30,4051 :rem 54 

2020 DATA 30,5407,30,4051,30,6069,30,4051 :rem 215 
2030 DATA 30,6430,30,6069,30,5407,30,4050 :rem 218 
2040 DATA 30,5407,30,4050,30,6069,30,4050 :rem 215 
2050 DATA30, 6430, 30, 7217, 30,8101, 30, 4050 :rem 210 
2060 DATA30,5407, 30,4050, 30,6069, 30,4050 :rem 217 
2070 DATA30, 6430, 30, 6069, 30, 5407, 30, 4050 :rem 222 
2080 DATA30, 5407, 30,4050,30,6069,30,4817 : rem 230 
2090 DATA60, 5407, 30, 5407, 30, 4050 :rem 86 

2120 DATA 30,5407,30,4051,30,6069,30,4051 :rem 216 
2130 DATA 30,6430,30,6069,30,5407,30,4050 :rem 219 
2140 DATA 30,5407,30,4050,30,6069,30,4050 srem 216 
2150 DATA30, 6430, 30, 7217, 30, 8101, 30, 4050 :rem 211 



172 



Sound and Graphics 4 



2160 DATA30, 5407, 30, 4050, 30, 6069, 30, 4050 :reni 218 

2170 DATA30, 6430, 30, 6069, 30, 5407, 30, 4050 :rem 223 

2180 DATA30, 5407, 30,4050, 30,6069, 30,4817 : rem 231 

2190 DATA120,5407 :rem 117 

2220 DATA 30,5407,30,4051,30,6069,30,4051 :rem 217 

2230 DATA 30,6430,30,6069,30,5407,30,4050 :rem 220 

2240 DATA 30,5407,30,4050,30,6069,30,4050 :rem 217 

2250 DATA30, 6430, 30, 7217, 30, 8101, 30, 4050 irem 212 

2260 DATA30, 5407, 30, 4050, 30, 6069, 30, 4050 :rem 219 

2270 DATA30, 6430, 30, 6069, 30, 5407, 30, 4050 :rem 224 

2280 DATA30,5407, 30,4050, 30,6069, 30,4817 : rem 232 

2290 DATA120,5407 :rem 118 

2320 DATA 30,5407,30,4051,30,6069,30,4051 :rem 218 

2330 DATA 30,6430,30,6069,30,5407,30,4050 i rem 221 

2340 DATA 30,5407,30,4050,30,6069,30,4050 :rem 218 

2350 DATA30, 6430, 30, 7217, 30, 8101, 30, 4050 :rem 213 

2360 DATA30, 5407, 30, 4050, 30, 6069, 30, 4050 : rem 220 

2370 DATA30, 6430, 30, 6069, 30, 5407, 30, 4050 :rem 225 

2380 DATA30, 5407, 30, 4050, 30, 6069, 30, 4817 : rem 233 

2390 DATA120,5407 :rem 119 

2900 DATA 0,0 :rem 113 

3000 REM NOTES FOR VOICE TWO : rem 135 

3010 DATA990,0 :rem 220 

3020 DATA60, 2703, 60, 2408 :rem 201 

3030 DATA30, 2145, 30, 2025, 60, 2145 :rem 73 

3040 DATA60, 2025, 60, 1804 :rem 199 

3050 DATA30, 1607, 30, 1517, 60, 1351 : rem 80 

3060 DATA60, 2703, 60, 2408 :rem 205 

3070 DATA30, 2145, 30, 2025, 60, 2145 : rem 77 

3080 DATA60, 2025, 60, 1804 :rem 203 

3090 DATA30, 1607, 30, 1517,60, 1351 :rem 84 

3120 DATA60, 2703, 60, 2408 :rem 202 

3130 DATA30, 2145, 30, 2025, 60, 2145 :rem 74 

3140 DATA60, 2025, 60, 1804 :rem 200 

3150 DATA30, 1607, 30, 1517,60, 1351 :rem 81 

3160 DATA60,2703,60,2408 :rem 206 

3170 DATA30, 2145, 30,2025,60,2145 irem 78 

3180 DATA60, 2025, 60, 1804 :rem 204 

3190 DATA30, 1607, 30, 1517, 60, 1351 :rem 85 

3220 DATA60, 2703, 60, 2408 :rem 203 

3230 DATA30, 2145, 30, 2025, 60, 2145 :rem 75 

3240 DATA60, 2025, 60, 1804 : rem 201 

3250 DATA30, 1607, 30, 1517, 60, 1351 : rem 82 

3260 DATA60, 2703, 60, 2408 :rem 207 

3270 DATA30,2145,30,2025,60,2145 :rem 79 

3280 DATA60, 2025, 60, 1804 :rem 205 

3290 DATA30, 1607, 30, 1517,60, 1351 :rem 86 

3900 DATA 0,0 :rem 114 

4000 REM NOTES FOR VOICE THREE : rem 6 

4010 DATA1950,0 :rem 10 
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4020 DATA 60,2703,60,2408 : rem 202 

4030 DATA 30,2703,15,2703,15,2703,60,2025 : rem 215 
4040 DATA 30,2703,30,2703,30,3034,30,3034 : rem 206 
4050 DATA 15,3215,15,3215,15,3215,15,3215,60,3034 

:rem 99 

4060 DATA 45,4050,15,3608,45,4050,15,3608 :rem 234 
4070 DATA 45,4050,15,3608,15,4050,15,3608,15,3215, 
15,3034 :reni 249 

4080 DATA 60,2703,60,2408 :rem 208 

4090 DATA 30,2703,15,2703,15,2703,60,2025 :rein 221 
4100 DATA 30,2703,30,2703,30,3034,30,3034 :reni 203 
4110 DATA 15,3215,15,3215,15,3215,15,3215,60,3034 

:rem 96 

4120 DATA 45,4050,15,3608,45,4050,15,3608 :rem 231 
4130 DATA 45,4050,15,3608,15,4050,15,3608,15,3215, 
15,3034 :rem 246 

4140 DATA 60,2703,60,2408 : rem 205 

4150 DATA 30,2703,15,2703,15,2703,60,2025 :rem 218 
4160 DATA 60,4050,60,4050 :reni 199 

4170 DATA 30,4050,15,4050,15,4050,60,4050 :rem 211 
4900 DATA 800,0,0,0 :rem 147 

Program 3. Blast'off 

10 S=54272 :rem 245 

20 FOR I-STOS+24:POKEI,0:NEXT :rem 48 

30 POKES+24,15 :rem 8 

40 FR=0500 trem 254 

50 A=0:D=0iSS=15:R=0 :rem 122 

60 W=128:P=1024 :rem 35 

70 POKES+l,INT(FR/256) :rem 17 

80 POKES, FR-256*INT(FR/256) : rem 66 

90 POKES+3,INT(P/256) : rem 205 

100 POKES+2,P-256*INT(P/256) :rem 56 

110 POKES+5,16*A+D :rem 225 

120 POKES+6,16*SS+R : rem 86 

200 P0KES+4,W+1:REM TURN SOUND ON :rem 223 

210 FORI=200TO1 STEP-1 : rem 

220 FR=FR+100:REM INCREASE FREQUENCY :rem 215 
222 IF I< 45 THEN POKES+24, l/3 : REM NEAR THE END TU 

RN DOWN THE VOLUME : rem 98 

225 F2=INT(PR/256) :F1=FR-256*P2 : rem 224 

230 P0KES,F1:P0KES+1,F2 :rem 118 

240 NEXT I :rem 30 

250 P0KES+4,W:REM TURN SOUND OFF :rem 198 
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Program 4. Laser 



10 S=54272 


:rem 245 


20 FOR I=STOS+24:POKEI,0:NEXT 


:rem 48 


30 P0KES+24,143:REM VOLUME AT 


15 /TURN OFF VOICE TH 


REE 


:reni 108 


40 F50000 


:reni 46 


50 A=0:D=8:SS=15:R=08 


:reni 186 


60 W=064:P=1024 


:rem 34 


70 POKES+l,INT(FR/256) 

80 POKES, FR-256*INT(FR/256) 


rrem 17 


:rem 66 


90 POKES+3,INT(P/256) 

100 POKES+2,P-256*INT(P/256) 


:rem 205 


trem 56 


110 POKES+5,16*A+D 


:rein 225 


120 P0KES+6,16*SS+R 


trem 86 


130 POKES+15,75 


:rem 63 


155 P0KES+4,W+3 :REM USING W+3 


TURNS ON {2 SPACES }GA 


TE AND SYNC 


: rem 32 


160 F0RI=1T025 


: rem 63 


170 POKES+15, 120-4*1 :REM{ 2 SPACES } DECREASE FREQ VO 


ICE THREE 


:rem 180 


180 NEXT I 


:rem 33 


185 P0KES+4,W 


:rem 2 



Sound Sculptor 

Todd Touris 

With formatted screens and a joystick-controlled 
pointer, "Sound Sculptor" gives you the ability to 
quickly and easily create your own music and 
save your creation. 



"Sound Sculptor" uses several graphics screens to take the te- 
dium out of creating data for your music or sound programs. 
It's not difficult to use and therefore needs little explanation; a 
basic understanding of the SID chip would probably be help- 
ful, however. "Programming 64 Sound," an article elsewhere 
in this book, is a good source of information. 

Automatic LOAD 

Because there are two programs which make up Sound Sculp- 
tor, and because the first program automatically loads the sec- 
ond, you need to take some care as you type them in. Make 
sure you use "The Automatic Proofreader," found in Appen- 
dix C, as you enter Sound Sculptor. The Proofreader will help 
inunensely in insuring error-free copies of both programs. 

If you're using tape to store Sound Sculptor, put both 
Program 1 and Program 2 on the same tape. Type in Program 
1 first, then save it. Next type in Program 2, saving it on the 
tape immediately following Program 1. Program 1 will auto- 
matically load Program 2. 

Much the same process must be used if you have a disk 
drive. Both programs should be typed in and saved to the 
same disk. Make sure you save Program 2 with SAVE"2",8. 
That's the filename Program 1 will look for. 

Run Program 1, press T or D (tape or disk), and wait pa- 
tiently. You should be presented with a main menu. Press the 
f 1 function key. (Don't worry about loading a file right now.) 
You'll then be asked to choose a sound between and 1250. 
Enter a number and press RETURN. 

You will see a menu which allows you to set one of three 
voices, work on the filter settings, clear the sound, choose a 
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new sound, change joystick speed, or quit. If you don't clear 
the sound, the settings will be random and probably won't 
produce any sound at all. Use the keyboard to make your 
selection and plug a joystick into port 2. 

Set die Volume First 

Before you jump to the voice settings, make sure to go to the 
filter display and set the volume control, or you won't be able 
to hear anything. To change the various settings, you simply 
move the sprite arrow over the appropriate display and press 
the fire button. When a word or character is in reverse display, 
it means that the particular setting is on, or if the display is a 
scale (+ signs), it shows what value that setting contains. 

Select a waveform. There are four available: sawtooth, 
pulse, triangle, and noise. Although you can set more than 
one at a time, it's not recommended. (See "Programming 64 
Sound" for a good reason.) If you set the noise waveform 
while another is on, the voice must be cleared to produce any 
sound. Before you select the noise waveform, then, make sure 
all the others are turned off. 

If you choose a pulse waveform, you should also set the 
pulse width. This adjustment changes for every pbcel the ar- 
row passes, not just the + sjnnbols. If you've set the volume 
and the attack, decay, sustain, and release values already, you 
can hear a slight difference in the background sound if you 
turn your monitor's volume up to high. 

Set an ADSR (attack, decay, sustain, and release) en- 
velope by selecting values. If you want to hear the sound 
while you're experimenting, set the sustain to anything but the 
leftmost +, then hit the appropriate function key (see below 
for triggering the voices). If you have the frequency and wave- 
form set, you should hear a steady tone. Change the note, oc- 
tave, or waveform and listen to the difference. 

Choose the frequency by setting the octave and the note. 

Synchronization and ring modulation are rather complex, 
but they can create some interesting sounds. Experimenting 
with them is probably the best way to hear how they affect 
sounds. There are just a couple of things to keep in mind. 
First, the voice that's using synchronization or ring modulation 
must be set to the triangle waveform. Second, make sure you 
set the frequency for the voice that's indicated in the bottom 
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box on the display. (If you're using voice 1, for instance, you 
need to set the frequency of voice 3.) 

Filters 

The filter display can be accessed from the main menu. (You 
can return from any display to the main menu just by pressing 
the space bar.) Once you see the filter setting screen, you can 
choose which type of filter to set (high pass, band pass, or low 
pass), the voice to be filtered (E stands for external, used if 
you're routing sounds to an external speaker), and the cutoff 
frequency. As with the pulse width, the cutoff frequency 
changes at each pixel, not just each + symbol. 

Resonance will make the frequencies around the filter cut- 
off area louder. The very bottom box on the screen. Voice 3 
Output, will shut off voice 3 if it's set (shown by reverse 
video). If in normal text, voice 3 is not affected. It's a good 
idea to shut off voice 3 when using synchronization or ring 
modulation with voice 1, since it will cut down on any extra 
noise. 

Playing Sounds 

To trigger the voices, you must use the function keys (fl for 
voice one, f3 for voice two, f5 for voice three, and f7 for all 
voices). If the voice is off, it should go through attack and 
decay, and then remain at the sustain level; when the key is 
pressed again, the sound should be released and fall to zero 
volume. When pressing the function keys or switching a set- 
ting, you must be careful. The program is very fast and the 
keys are very responsive; sometimes the voice or setting can 
be triggered twice, so hit the keys sharply. 

When you are finished experimenting with the various 
settings, press the space bar to return to the selection menu. 
You can continue working on more sounds, or you can press 
f8 to quit. When you quit, you will get another menu with 
three options. 

Saving Sounds 

The first option is to save a series of sounds on tape or disk as 
a file (depending on your earlier selection). You need to pro- 
vide the beginning and ending sounds (separating the num- 
bers with a comma) and then a filename. Make sure you have 
a disk in the drive or a tape in the Datassette. 
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Later, you can load these sounds back into the computer 
by pressing f3 at the beginning of the program instead of go- 
ing right to the design/review routine. This feature allows you 
to bufld a library of various sounds. 

Your second choice is to create DATA statements of your 
sound or sounds. After pressing the f3 key, you need to re- 
spond with the beginning and ending number(s) for the 
sound(s) you want to make DATA statements for. As soon as 
you press the RETURN key, the DATA statements appear. Hit 
RETURN several times (usually just once or twice more), and 
you'll see only the DATA statements on the screen. In fact, if 
you type LIST, the DATA statement lines will be the only 
ones in memory. If you want, you can save just the DATA 
statements as another program file, ready for appending to or 
merging with another program later. 

With the program below, you can use these DATA state- 
ments to incorporate complex and fast sound effects into your 
BASIC programs. 

1000 FORL=0 TO 42:READ DA:POKE828+L,DA:NEXTL 

1010 DATA 166,2,165,251,133,253,165,252,133,254,22 

4,0,240,16,169,25,24,101 
1020 DATA 253,133,253,169,0,101,254,133,254,202,20 

8,240,160,0,177,253 
1030 DATA 153,0,212,200,192,26,208,246,96 

This is a machine language routine that's POKEd into the cas- 
sette buffer (starting at location 828), but it's relocatable and 
can be put anywhere in free memory. To use it, you must 
POKE the values from the DATA statements created by Sound 
Sculptor into any free memory. For example, you could put 
one sound's data into the block of free memory beginning at 
49152 with: 

10 FORL=0 TO 24:READ SNDrPOKE 49152+L,SND:NEXTL 

If you have more sounds, POKE the DATA into memory im- 
mediately following the first. Each sound created by the 
Sculptor includes 25 valid numbers (that's why the FOR- 
NEXT loop above reads FOR L=0 TO 24). The last DATA 
statement (no matter how many sounds you create DATA 
statements for) will have extra values. These will do no harm 
as long as you read only 25 values for each sound. 

Next, POKE the starting address of the sounds into loca- 
tions 251 and 252. For the example above, this would be 
accomplished by: 
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20 POKE252 ,49152/256 :POKE251 ,49152-256*PEEK( 252 ) 

Now you should have a short program which reads the values 
from the DATA statements and POKEs them into memory. 
Run it and the sound's values are stored. 

A Fast Sound Switch 

This has to be done only once. Whenever you wish to call 
upon a certain sound, just POKE the sound number into loca- 
tion 2. For example, POKE 2,0 selects the first sound in mem- 
ory. POKE 2,1 would call the second sound. Follow this with 
a SYS 828 (or to whatever memory location you have re- 
located the machine language routine), and you now have 
your sound in the SID chip. By doing this, you can switch 
various sounds in and out of the SID at lightning speed. 

You need to turn on the voice you're using, of course. 
You can do this with a line which includes: 

POKE 542724-4,PEEK(n)ORl 

where n is the first location of that sound. It would be 49152 
if that's where you earlier POKEd the sound's DATA values. 
Turning off the sound can be done by: 

POKE 54272-l-4,PEEK(n)AND254 

The same process applies to turning on voices 2 and 3, except 
you'd use 54283 and 54290 respectively instead of 54272. It's 
a good idea to turn off the voice, then turn it back on, be- 
tween calling different sounds. 

If you POKEd two sounds' values into memory, starting 
at location 49152, for example, the routine to call those sounds 
might look like this. 

10 POKE 2,0 
20 SYS 828 

30 POKE 54272+4, PEEK( 49152+4 )0R 1 

40 FOR T=0TO 1000: NEXT 

50 POKE 54272+4, PEEK(49152+4)AND 254 

60 POKE 2,1 

70 SYS 828 

80 POKE 54272+4, PEEK(49177+4)0R 1 
90 FOR T=0TO1000:NEXT 

100 POKE 54272+4, PEEK(49177+4)AND 254 

Create two sounds of your own with the Sculptor and form 
the DATA statements. POKE those into memory as described 
earlier, then type in and run the routine above. You should 
hear your two sounds, one after the other. (Notice that the 
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second sound turns on voice 1 by PEEKing 49177+4, That's 
the location of the control register for the second sound. You 
get that location by adding 25 to the first address used to store 
sound data, in this case 49152. Each additional sound can turn 
the voice on and off by PEEKing the location 25 higher than 
the previous sound.) 

Tape users: Program 1 automatically loads Program 2. It's recom- 
mended that you save both on the same tape, Program 2 last. 
Disk users: Save Program 2 as "2". Make sure both programs are 
on the same disk. 

Program 1 . Sound Sculptor — ML Loader 

For mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C, 
to enter the following two programs. 

50 POKE53281,ll:POKE646,liPOKE53280,ll :rein 132 
80 PRINT"{CLR}":PRINT:PRINT"{6 SPACES } PLEASE WAIT 

{ SPACE }ONE MOMENT ..." : rem 201 

200 REM ML PROGRAM POKER s rem 168 

210 FORL=49152TO50702 :rem 169 

220 READDA:POKEL,DA:NEXT :rem 20 

240 PRINT" {CLR} {13 RIGHT) {11 DOWN) {RVS}T{ OFF} APE 
R {RVS)d{0FF)ISK" :rem 108 

250 GETT$:IFT$=""THEN250 :rem 119 

255 IFT$<>"D"ANDT$<>"T"THEN250 :rem 200 

260 IFT$="D"THEN380 : rem 46 

300 POKE631 , 76 :POKE632 , 207 :POKE633 , 13 :P0KE198, 3 

:rem 189 

350 FORT=1TO1000:NEXT:GOTO1000 : rem 82 

380 POKE50660,8:POKE50662,8 :rem 255 

400 POKE631 , 76 : P0KE632 , 207 : P0KE633 , 34 : P0KE634 , 50 : P 
OKE635,34:POKE636,44 :rem 36 

405 POKE637,56 :rem 255 

410 POKE638,58:POKE639,13:POKE198,9 :rem 9 

1000 REM ML DATA : rem 88 

49152 DATA 32, 140, 197, 160, 0, 177 :rem 252 

49158 DATA 78, 153, 0, 212, 200, 192 :rem 252 

49164 DATA 25, 208, 246, 32, 92, 194 :rem 9 

49170 DATA 165, 197, 201, 60, 240, 23 : rem 44 

49176 DATA 169, 16, 45, 0, 220, 208 : rem 207 

49182 DATA 225, 165, 2, 240, 6, 32 : rem 150 

49188 DATA 86, 192, 76, 0, 192, 32 :rem 172 

49194 DATA 48, 192, 76, 0, 192, 96 : rem 177 

49200 DATA 162, 21, 189, 24, 197, 202 :rem 46 

49206 DATA 205, 1, 208, 48, 8, 189 :rem 163 

49212 DATA 24, 197, 205, 1, 208, 48 :rem 205 

49218 DATA 4, 202, 16, 236, 96, 189 : rem 217 

49224 DATA 48. 197. 133. 75. 232. 189 :rem 68 
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49230 
49236 
49242 
49248 
49254 
49260 
49266 
49272 
49278 
49284 
49290 
49296 
49302 
49308 
49314 
49320 
49326 
49332 
49338 
49344 
49350 
49356 
49362 
49368 
49374 
49380 
49386 
49392 
49398 
49404 
49410 
49416 
49422 
49428 
49434 
49440 
49446 
49452 
49458 
49464 
49470 
49476 
49482 
49488 
49494 
49500 
49506 
49512 
49518 
49524 
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DATA 48, 197, 133, 76, 108, 75 : rem 14 

DATA 0, 234, 162, 15, 189, 72 :reni 209 

DATA 197, 202, 205, 1, 208, 48 rrem 254 

DATA 8, 189, 72, 197, 205, 1 :rem 173 

DATA 208, 48, 4, 202, 16, 236 :rem 206 

DATA 96, 189, 88, 197, 133, 75 :rem 32 

DATA 232, 189, 88, 197, 133, 76 :rem 79 

DATA 108, 75, 0, 234, 96, 24 :rem 161 

DATA 173, 0, 208, 233, 142, 144 :rem 49 

DATA 247, 74, 74, 74, 74, 133 rrem 225 

DATA 77, 234, 32, 175, 192, 76 :rem 16 

DATA 96, 196, 96, 234, 234, 24 :reni 26 

DATA 173, 0, 208, 233, 74, 144 irem 249 

DATA 245, 41, 240, 160, 3, 81 :reni 199 

DATA 253, 41, 240, 81, 253, 145 :rem 45 

DATA 253, 32, 175, 192, 76, 140 trem 50 

DATA 196, 160, 3, 177, 253, 74 irem 12 

DATA 74, 74, 74, 10, 170, 160 :rem 204 

DATA 0, 189, 0, 197, 145, 253 irem 216 

DATA 232, 200, 189, 0, 197, 145 rrem 52 

DATA 253, 24, 169, 8, 229, 77 rrem 222 

DATA 234, 170, 240, 15, 177, 253 rrem 103 

DATA 74, 145, 253, 136, 177, 253 rrem 112 

DATA 106, 145, 253, 200, 202, 208 rrem 143 

DATA 241, 96, 24, 173, 0, 208 rrem 210 

DATA 233, 144, 144, 8, 169, 128 rrem 59 

DATA 32, 32, 193, 76, 198, 195 rrem 25 

DATA 169, 64, 32, 32, 193, 76 rrem 223 

DATA 181, 195, 24, 173, 0, 208 rrem 11 

DATA 233, 144, 176, 8, 169, 32 rrem 7 

DATA 32, 32, 193, 76, 215, 195 rrem 3 

DATA 169, 16, 32, 32, 193, 76 rrem 217 

DATA 232, 195, 169, 4, 32, 32 rrem 207 

DATA 193, 76, 249, 195, 169, 2 rrem 27 

DATA 32, 32, 193, 76, 10, 196 rrem 211 

DATA 160, 4, 81, 253, 145, 253 rrem 253 

DATA 96, 234, 234, 24, 173, rrem 211 

DATA 208, 233, 133, 144, 245, 170 rrem 147 

DATA 169, 0, 160, 2, 145, 253 rrem 209 

DATA 200, 177, 253, 41, 240, 72 rrem 48 

DATA 145, 253, 138, 162, 5, 136 rrem 54 

DATA 10, 145, 253, 200, 177, 253 rrem 100 

DATA 42, 145, 253, 136, 177, 253 rrem 110 

DATA 202, 208, 241, 200, 177, 253 rrem 151 

DATA 41, 15, 145, 253, 104, 24 rrem 254 

DATA 113, 253, 145, 253, 76, 193 rrem 101 

DATA 194, 96, 234, 160, 5, 32 rrem 213 

DATA 133, 193, 76, 208, 194, 160 rrem 107 

DATA 5, 32, 138, 193, 76, 228 rrem 221 

DATA 194, 160, 6, 32, 133, 193 rrem 2 
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49530 DATA 76, 246, 194, 160, 6, 32 : rem 212 

49536 DATA 138, 193, 76, 10, 195, 162 :rem 64 

49542 DATA 240, 76, 140, 193, 162, 15 : rem 50 

49548 DATA 134, 251, 24, 173, 0, 208 :rem 255 

49554 DATA 233, 133, 144, 205, 74, 74 : rem 54 

49560 DATA 74, 166, 251, 16, 4, 10 :rem 154 

49566 DATA 10, 10, 10, 81, 253, 37 : rem 148 

49572 DATA 251, 81, 253, 145, 253, 96 :rem 63 

49578 DATA 234, 234, 234, 234, 96, 234 srem 115 

49584 DATA 234, 234, 234, 234, 160, 1 :rem 48 

49590 DATA 24, 173, 0, 208, 233, 133 :rem 251 

49596 DATA 48, 240, 10, 145, 253, 76 :rem 11 

49602 DATA 28, 195, 234, 24, 173, : rem 206 

49608 DATA 208, 233, 133, 144, 225, 74 :rem 103 

49614 DATA 74, 74, 74, 74, 162, 1 : rem 116 

49620 DATA 168, 240, 6, 138, 10, 136 :rem 253 

49626 DATA 208, 252, 170, 138, 160, 2 :rem 49 

49632 DATA 81, 253, 145, 253, 76, 86 :rera 16 

49638 DATA 195, 234, 234, 234, 96, 173 : rem 120 

49644 DATA 0, 208, 233, 133, 144, 248 :rem 49 

49650 DATA 10, 160, 2, 81, 253, 41 :rem 144 

49656 DATA 240, 81, 253, 145, 253, 76 :rem 62 

49662 DATA 48, 195, 234, 234, 234, 234 : rem 112 

49668 DATA 234, 81, 253, 41, 15, 81 :rem 215 

49674 DATA 253, 145, 253, 96, 173, : rem 12 

49680 DATA 208, 233, 133, 144, 248, 74 :rem 108 

49686 DATA 74, 74, 160, 3, 234, 32 : rem 165 

49692 DATA 5, 194, 76, 68, 195, 169 :rem 241 

49698 DATA 64, 32, 65, 194, 76, 44 : rem 183 

49704 DATA 196, 169, 32, 32, 65, 194 :rem 17 

49710 DATA 76, 61, 196, 169, 16, 32 : rem 219 

49716 DATA 65, 194, 76, 78, 196, 169 :rem 38 

49722 DATA 128, 32, 65, 194, 76, 27 :rem 221 

49728 DATA 196, 160, 3, 81, 253, 145 :rem 11 

49734 DATA 253, 96, 24, 169, 128, 113 :rem 64 

49740 DATA 251, 145, 251, 136, 208, 246 :rem 152 

49746 DATA 173, 0, 220, 41, 16, 240 :rem 197 

49752 DATA 249, 96, 96, 234, 32, 228 :rem 24 

49758 DATA 255, 201, 133, 48, 247, 201 : rem 105 

49764 DATA 137, 16, 243, 201, 133, 208 :rem 99 

49770 DATA 4, 32, 137, 194, 96, 201 :rem 213 

49776 DATA 134, 208, 4. 32, 149, 194 :rem 14 

49782 DATA 96, 201, 135, 208, 4, 32 : rem 210 

49788 DATA 161, 194, 96, 32, 137, 194 :rem 77 

49794 DATA 32, 149, 194, 32, 161, 194 : rem 67 

49800 DATA 96, 169, 1, 160, 4, 81 :rem 111 

49806 DATA 78, 145, 78, 141, 4, 212 : rem 216 

49812 DATA 96, 169, 1, 160, 11, 81 :rem 160 

49818 DATA 78, 145, 78, 141, 11, 212 :rem 9 

49824 DATA 96. 169. 1, 160, 18, 81 :rem 170 



4 Sound and Graphics 





Uiil/i 


/a, 














AQQAQ 




£t J IL 


AQQt^A 


naTA 


1 A"? 


ODlO 


r\2vrn TV 


Z O X 




JJ/il/i 


•5 f 


rt O T O 

49872 


DATA 




A ft O TO 

49878 


DATA 


TOO 


49oo4 


UAIA 


'4 » 


49o7l0 




J. /D 


49o9D 


DATA 






UAl A 


1 77 
Lit 


499Wo 


DAI A 


1 7*; 
I/O 


AQQ1 A 


ATA 


1 f^Ot 
X 






1 77 


*t7 7 ^ V 


DATA 


1 70 

X / K/ 


49932 


DATA 


133 




DATA 


160 


J.QQA A 
47744 


HATA 




47731W 


HATA 


X o 


4773D 




X O K/ 


4770^ 




/4 , 


477DC3 


n ATI A 


1 AQ 


AQQ*? A 
477 /4 


L/Al A 




477oi3 


DAi A 




AQQQ£ 


UAIA 


1 /o 


AQQOO 
4777* 


UAIA 


X07 


aqqqq 

4777C5 


UAxA 


Lit 


OK/ 19104 


UAX A 


X / o 


Kaa^ a 


HATA 


1 AQ 

X D7 


OIVKf lO 


HATA 
UAIA 






HATA 


ZOO 




HATA 


ZO X 




DATA 


X zo 


•J KJKJ *tXJ 


DATA 




^Qi<AA€\ 


fiATA 


00 A 

ZZ4 


OYJx/0 £, 


UA 1 A 


1 Q 1^ 

X7 


Ok; la Do 


HATA 
UAIA 


X / / 


^OlOtf^A 
OkIIc/04 


r\A m A 
L/Al A 


XD7 


DK/Kf 1 xJ 


HATA 
iJAX A 


zox 


50076 


DATA 


240 


50082 


DATA 


201 


50088 


DATA 


194 


50094 


DATA 


127 


50100 


DATA 


96, 


50106 


DATA 


6, . 


50112 


DATA 


64, 


50118 


DATA 


169 


50124 


DATA 


133 



43, 145, 251, 136, 208 
232, 138, 168, 169, 171 

251, 96, 169, 5, 133 
169, 7, 133, 252, 160 

177, 253, 76, 173, 194 
117, 133, 251, 169, 5 

252, 160, 5, 177, 253 
74, 74, 74, 170, 76 

194, 169, 157, 133, 251 
5, 133, 252, 160, 5 

253, 41, 15, 170, 76 
194, 169, 197, 133, 251 

5, 133, 252, 160, 6 
253, 74, 74, 74, 74 
76, 176, 194, 169, 237 
251, 169, 5, 133, 252 

6, 177, 253, 41, 15 
76, 176, 194, 169, 173 

251, 169, 4, 133, 252 
1, 177, 253, 74, 74 

74, 170, 76, 176, 194 
237, 133, 251, 169, 5 

252, 160, 2, 177, 253 
74, 74, 74, 170, 76 

194, 169, 181, 133, 251 
6, 133, 252, 160, 3 

253, 41, 15, 170, 76 
194, 169, 78, 133, 251 
5, 133, 252, 169, 1 

I, 160, 2, 72, 49 
240, 31, 138, 168, 177 
201, 127, 16, 7, 169 
24, 113, 251, 145, 251 
232, 232, 232, 104, 10 
17, 240, 3, 76, 98 

76, 82, 194, 138, 168 
251, 201, 127, 48, 232 
128, 24, 113, 251, 145 
76, 120, 195, 49, 253 

II, 138, 168, 177, 251 
127, 16, 14, 76, 80 
138, 168, 177, 251, 201 
48, 3, 76, 72, 194 



:rein 10 
I rem 212 
:rem 110 
:rem 170 
:rein 17 
:rem 55 
: rem 2 5 
:rem 65 
:rem 63 
:rem 184 
:rem 172 
:rem 219 
:rem 7 
:rem 176 
:rem 211 
:rem 227 
:rem 129 
:rem 53 
I rem 216 
:rem 128 
: rem 52 
:rem 222 
:rem 27 
:rem 74 
: rem 57 
:rem 181 
:rem 175 
:rem 215 
: rem 22 
:rem 105 
:rem 194 
:rem 91 
:rem 93 
:rem 248 
:rem 82 
:rem 65 
:rem 156 
:rem 65 
:rem 95 
:rem 93 
trem 48 
:rem 98 
:rem 195 
I rem 158 
:rem 165 
:rem 98 
:rem 199 
:rem 202 
:rem 60 
:rem 43 
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50130 DATA 160, 4, 76, 154, 195, 169 : rem 

50136 DATA 90, 133, 251, 169, 6, 133 :rein 250 

50142 DATA 252, 162, 6, 169, 32, 160 : rem 246 

50148 DATA 4, 76, 154, 195, 169, 109 :rem 12 

50154 DATA 133, 251, 169, 6, 133, 252 : rem 42 

50160 DATA 162, 6, 169, 16, 160, 4 :rem 147 

50166 DATA 76, 154, 195, 169, 153, 133 :rem 110 

50172 DATA 251, 169, 7, 133, 252, 162 :rem 45 

50178 DATA 15, 169, 4, 160, 4, 76 : rem 109 

50184 DATA 154, 195, 169, 113, 133, 251 :rem 149 

50190 DATA 169, 7, 133, 252, 162, 15 :rem 251 

50196 DATA 169, 2, 160, 4, 76, 154 :rem 159 

50202 DATA 195, 169, 45, 133, 251, 169 i rem 102 

50208 DATA 7, 133, 252, 162, 15, 169 :rem 251 

50214 DATA 128, 160, 3, 76, 154, 195 : rem 253 

50220 DATA 169, 201, 133, 251, 169, 4 :rem 37 

50226 DATA 133, 252, 162, 9, 169, 64 :rem 1 

50232 DATA 160, 3, 76, 154, 195, 169 :rem 2 

50238 DATA 25, 133, 251, 169, 5, 133 : rem 250 

50244 DATA 252, 162, 9, 169, 32, 160 :rem 252 

50250 DATA 3, 76, 154, 195, li69, 105 : rem 1 

50256 DATA 133, 251, 169, 5, 133, 252 :rem 44 

50262 DATA 162, 9, 169, 16, 160, 3 : rem 152 

50268 DATA 76, 154, 195, 234, 162, 49 :rem 64 

50274 DATA 160, 0, 169, 95, 133, 251 : rem 252 

50280 DATA 169, 4, 133, 252, 138, 145 :rem 47 

50286 DATA 251, 200, 200, 232, 192, 16 ; rem 81 

50292 DATA 208, 246, 160, 1, 177, 253 :rem 47 

50298 DATA 162, 255, 232, 74, 208, 252 : rem 104 

50304 DATA 138, 133, 77, 10, 168, 169 :rem 51 

50310 DATA 128, 113, 251, 145, 251, 96 : rem 88 

50316 DATA 162, 0, 160, 0, 169, 167 :rem 195 

50322 DATA 133, 251, 169, 4, 133, 252 :rem 37 

50328 DATA 189, 112, 197, 145, 251, 200 :rem 147 

50334 DATA 200, 232, 192, 24, 208, 244 :rem 84 

50340 DATA 160, 3, 177, 253, 74, 74 :rem 203 

50346 DATA 74, 74, 10, 168, 24, 169 : rem 212 

50352 DATA 128, 113, 251, 145, 251, 96 :rem 94 

50358 DATA 234, 234, 32, 96, 196, 32 :rem 6 

50364 DATA 140, 196, 32, 193, 194, 32 irem 50 

50370 DATA 198, 195, 32, 181, 195, 32 : rem 57 

50376 DATA 215, 195, 32, 232, 195, 32 irem 50 

50382 DATA 249, 195, 32, 10, 196, 32 irem 1 

50388 DATA 208, 194, 32, 228, 194, 32 :rem 58 

50394 DATA 246, 194, 32, 10, 195, 76 :rem 7 

50400 DATA 0, 192, 234, 234, 234, 32 trem 235 

50406 DATA 28, 195, 32, 48, 195, 32 :rera 211 

50412 DATA 86, 195, 32, 27, 196, 32 :rem 210 

50418 DATA 44, 196, 32, 61, 196, 32 :rem 209 

50424 DATA 78, 196, 32, 68, 195, 76 :rem 227 
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300 PRINT" B{8 SPACES }BWAVEF0RMB{ 10 SPACES }B 

:rein 177 

310 PRINT" B OLOLOL JCCCCCCCCK { 2 SPACES }";: rem 224 
315 PRINT"N0ISEl3 SPACES }B[ 10 SPACES 1b{ 28 SPACES }B 
" : rem 46 

320 PRINT" BPULSE WIDTH ++++++++++++++++B : rem 129 
330 PRINT" JCCCCCCCCCCCCCCCCCCCCCCCCCCCCK :rem 46 
340 PRINT" UCCCCCCCCCCCCCCCCCCCCCCCCCCCCI :rem 56 
350 PRINT" BSYNCHR0NIZATI0N13 SPACES] USE VOICE B 

trem 192 

360 PRINT" BRING M0DULATI0N{6 SPACES}#"SR" . 

{2 SPACES }B srem 50 

370 PRINT" JCCCCCCCCCCCCCCCCCCCCCCCCCCCCK " ; 

:reni 143 

380 PRINT" {home}" :rem 127 

390 A=(V-l)*7:S=S+A:POKE254,S/256:POKE253,S-256*PE 

EK(254) :rem 223 

400 SYSVCH :rem 116 

410 GOTO910 :rem 104 

420 PRINT" {CLR} "; :P0KE2, 255 :rem 152 

430 REM FILTER DISPLAY :rem 87 

440 PRINT" {RVS} CCCCCCCCCCCCF ILTER SETTINGS CCCCCCCC 

CCCCC {0FF}" :rem 79 

450 PRINT" UCCCCCCCCCCCIUCCCCCCCCCCCCCCCCI :rein 21 
460 PRINT"BFILTER TYPEBBCUTOFF FREQUENCYB trem 210 
470 PRINT"B{11 SPACES }BB++++++++++++++++B :rem 2 
480 PRINT"B HIGH PASS BJCCCCCCCCCCCCCCCCK irem 235 
490 PRINT "B{ 11 SPACES ) BUCCCCCCCCCCCCCCCCI :rem 158 
500 PRINT "B BAND PASS BBVOICES i 2 SPACES j FILTEREDB 

:rem 176 

510 PRINT "B{ II SPACES ]BB l{3 SPACES}2{3 SPACES} 3 

{3 SPACES }e{ 2 SPACES }B :rem 40 

520 PRINT"B L0W{2 SPACES} PASS BJCCCCCCCCCCCCCCCCK 

:rein 184 

530 PRINT " JCCCCCCCCCCCKUCCCCCCCCCCCCCCCC I :rem 11 
540 PRINT" 1 13 SPACES ] B t 3 SPACES j RESONANCE 

{4 SPACES }b :rera 106 

550 PRINT" {13 SPACES }B++++++++++++++++B :rem 125 
560 PRINT" {13 SPACES j jCCCCCCCCCCCCCCCCK :rem 15 
570 PRINT " { RVS } CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

CCCCC {0FF}" ; I rem 196 

580 PRINT" {13 SPACES } UCCCCCCCCCCCCCCCC I :rem 26 
590 PRINT" {13 SPACES ] Bl 3 SHIFT-SPACE ] 

{SHIFT-SPACE} VOLUME {5 SHIFT-SPACE }B :rem 73 
600 PRINT" {13 SPACES }B++++++++++++++++B :rem 121 
610 PRINT" {13 SPACES } JCCCCCCCCCCCCCCCCK :rem 11 
620 PRINT" {13 SPACES } UCCCCCCCCCCCCCCCCI : rem 21 
630 PRINT" {13 SPACES }Bl RVS) VOICE #3 OUTPUT {OFF} B 

:rem 45 

640 PRINT" {13 SPACES } JCCCCCCCCCCCCCCCCK :rem 14 
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650 S=S+21:POKE254,S/256iPOKE253,S-256*PEEK(254) :S 

YSFCH:GOTO910 :rem 249 

660 REM INITIALIZATION xrem 168 

670 SS=9758 : POKE78 , 30 : POKE79 , 38 : SN=0 : VCH=50360 : FCH 

=50405:POKE53236,10 :rein 17 

680 POKE53248 , 24 : POKE53249 , 50 : P0KE51 , 29 : POKE52 , 38 : 

POKE55,29:POKE56,38 :rem 8 

690 PRINT" {CLR}" :reni 3 

700 PRINT" {11 DOWN} "TAB( 7) "WELCOME TO SOUND SCULPT 

OR" :reni 122 

710 FORL=1TO2000:NEXT : rem 23 

720 PRINT" {CLR}" :rem 253 

730 PRINT"{3 D0WN}"TAB(15)"{RVS}MAIN MENU{0FF}" 

:rem 110 

740 PRINT"{2 DOWN} "TAB (14) "CHOOSE ONE:" : rem 60 
750 PRINT" {2 D0WN}"TAB(7)"{RVS}F1{0PF} DESIGN/REVI 
EW SOUNDS" :rem 228 

760 PRINT:PRINTTAB(7)"{RVS}F3{OFF} LOAD SOUND FILE 

:rem 122 

770 GETA$:IFA$<"{F1}"ORA$>"{F3}"THEN770 :rem 241 
780 ONASC(A$)-132GOTO860,1340 :rem 87 

790 REM JOYSTICK SPEED :rem 101 

800 PRINT" {CLR} {12 DOWN} {3 SPACES} SELECT A SPEED B 

ETWEEN AND 15." : rem 219 

810 PRINT" {4 SPACES}0 - SL0WEST{6 SPACES}15 - PAST 

EST" :rem 165 

820 INPUTPS :rem 205 

830 IFPS<0ORPS>15THENPRINT "NUMBER NOT ACCEPTABLE"! 

GOTO830 :rem 173 

840 POKE53236,16-PS:GOTO910 irem 62 

850 REM SOUND DESIGN/REVIEW : rem 197 

860 PRINT" {CLR}" :rem 2 

870 PRINT" {11 DOWN} WHICH SOUND DO YOU WISH TO WOR 

K ON?" :rem 180 

880 PRINT" {2 SPACES} (NUMBER BETWEEN & 1250 PLEAS 

E) :rem 75 

890 INPUTSN I rem 210 

900 IFSN<0ORSN>1250THENPRINT"NUMBER NOT ACCEPTABLE 

":GOTO890 :rem 15 

910 POKE53269,0:PRINT"{CLR} {RVS}S0UND #";SN"{0FF} 

{H0ME}{3 DOWN} "TAB( 15) "CHOOSE ONE:" : rem 49 
920 S=SS+SN*25 :rem 46 

930 POKE79,S/256:POKE78,S-256*PEEK(79) :rem 183 
940 PRINT:PRINTTAB(8) " {RVS}1{0FF} - DISPLAY VOICE 

{ SPACE} #1" :rem 119 

950 PRINT:PRINTTAB(a) " {RVS}2{0FF} - DISPLAY VOICE 

{SPACE}#2" :rem 122 

960 PRINT:PRINTTAB(8)"{RVS}3{OFF} - DISPLAY VOICE 

{SPACE} #3" :rem 125 
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970 PRINT:PRINTTAB(8)"{RVS}4{0PF1 - DISPLAY FILTER 
SETTINGS" :rein 234 

980 PRINT: PRINTTAB(8)"{RVS}5 {OFF} - CLEAR: SOUND" 

:rem 143 

990 PRINT:PRINTTAB(8)"{RVS}6{OFF} - NEW SOUND NUMB 
ER" :rem 221 

1000 PRINT:PRINTTAB(8)"{RVS}7{OFF} - CHANGE JOYSTI 

CK SPEED" :rem 72 

1010 PRINT:PRINTTAB(8)"{RVS}8{0FF} - QUIT" : rem 6 
1020 GETC$:IFC$<"1"ORC$>"8"THEN1020 :rem 159 

1030 ONVAL(C$)6OTO1040, 1050, 1060, 1070, 1080, 860 ,80 

0,1100 :rem 68 

1040 V=1:SR=3:POKE53269,1:GOTO140 :rem 175 

1050 V=2:SR=1:POKE53269,1:GOTO140 :rem 175 

1060 V=3:SR=2:POKE53269,1:GOTO140 rrem 178 

1070 POKE53269,ltGOTO420 :rem 102 

1080 FORL=0TO24:POKES+L,0:NEXT:GOTO910 :rem 135 
1090 REM QUIT :rem 241 

1100 PRINT"{CLR}{7 DOWN}" :rem 157 

1110 PRINT TAB (14) "CHOOSE ONE:" : rem 254 

1120 PRINT:PRINTTAB(6)"{RVS}F1{0FF} - SAVE SOUND P 

ILE " :rem 218 

1130 PRINT:PRINTTAB(6)"{RVS}F3{OFF} - CONVERT TO D 

ATA STATEMENTS" :rem 235 

1140 PRINT:PRINTTAB(6)"{RVS}F5{0FF} - END":rem 223 
1150 GETA$:IPA$<"{Fl}"ORA$>"{F5}"THENil50 :rera 68 
1160 ONASC<A$)-132GOTO1220 ,1170,1420 :reml55 
1170 PRINT"{CLR}{8 DOWN}" :rem 181 

1180 PRINT" {2 SPACES}ENTER SOUNDS YOU WANT TO CONV 

ERT" :rera 240 

1190 PRINT" {6 SPACES} (START, END)"; : rem 185 

1200 ER=1:GOTO110 :rem 205 

1210 REM SAVE SOUNDS ROUTINE : rem 217 

1220 PRINT"{CLR} {8 DOWN}" :rem 177 

1230 PRINT" {2 SPACES} ENTER SOUNDS YOU WISH TO SAVE 

" :rem 251 

1240 PRINT" {6 SPACES} (START, END)"; :rem 181 

1250 INPUTB,E:IFB<0ORE>1250ORB>ETHENPRINT"BAD INPU 

T":GOTO1250 :rem 102 

1260 S=B*25+9758:F=9758+E*25+25 :rem 97 

1270 POKE79,S/256:POKE78,S-256*PEEK(79) :POKE254,F/ 

256:POKE253,F-256*PEEK(254) :rem 161 

1280 INPUT" {3 SPACES} WHAT DO YOU WISH TO NAME THE 

{SPACE}FILE";NM$:IPNM$=""THEN1280 : rem 96 

1290 T=LEN(NM$) iP0KE2,T irem 103 

1300 PORJ=1TOT:POKE50944-J+T,ASC(RIGHT$(NM$,J) ) :NE 

XTJ :rem 254 

1310 SYS50659:SYS.50692 :rem 12 
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1320 PRINT :PRINTNM$" FILE HAS BEEN SAVED" : PRINT "TH 

ANKYOU":END :rem 53 

1330 REM LOAD ROUTINE : rem 241 

1340 IPPEEK( 50660 )=1THENPRINT" {CLR} " :P0KE2 , :SYS50 

659:SYS50682:GOTO860 :rein 87 

1360 INPUT"{8 SPACES } FILENAME "; NM$ :T=LEN ( NM$ ): POKE 

2,T:IFT=0THEN1360 trem 49 

1370 PORJ=1TOT:POKE50944-J+T,ASC(RIGHT$(NM$, J) ) :NE 

XTJ :rem 5 

1380 PRINT" {CLR} ":SYS50659:SYS50682 :rera 176 

1390 IFST=66THENPRINT"{7 RIGHT}FILE NOT POUND" :GOT 

01350 :rem 64 

1400 GOTO860 :rem 156 

1410 REM END :rem 129 

1420 PRINT" { CLR }THANKYOU": END :rem 175 

1430 POKE2040 ,11: FORL=0TO24 : READSP : POKE704+L , SP :NE 

XTL:POKE53287,7 :rem 11 

1440 PORL=25TO63:POKE704+L,0:NEXTL:GOTO670 :rein 88 
1450 DATA48, 0,0, 56, 0,0, 60, 0,0, 62, 0,0, 45, 0,0, 36, 0,0 

,4,0,0,2,0,0,2 :rem 19 
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64 Hi-Res 
Graphics Editor 

Gregg Peele 

Just as a word processor allows you to expand 
your writing skills by giving you power to manipu- 
late text freely, "Hi'Res Graphics Editor" allows 
you to easily draw, erase, and edit images on the 
64's hi-res screen. Once you have finished your 
drawing, you can even send the results to your 
1525 printer. Joystick needed. 



Creating, changing, even saving intricate drawings on your 
Commodore 64's hi-res screen is simple with the Editor. Using 
a joystick and sprites, parts of pictures can be imprinted onto a 
sprite and planted on another area of the screen. You can even 
enlarge the sprite to full-screen size to edit it more precisely. 

Type It In with MLX 

"Hi-Res Graphics Editor" is in two parts. (Three, if you use 
the optional automatic load routine. See the next section, 
"Autoload," for details.) First you must type in Program 1, 
"Machine Language for Hi-Res Graphics Editor," using the 
MLX program found in Appendix D. MLX makes it simple to 
enter machine language programs, and almost guarantees that 
you'll have a working copy of the Editor the first time you 
type it in. Once you've typed in, saved, and then loaded MLX, 
it will ask you for two numbers, or addresses. You should re- 
spond with: 

Starting address: 49152 
Ending address: 51557 

You don't have to type in Program 1 all in one sitting. Read 
Appendix D for details on how to save and later return to a 
partially completed machine language program. 

Save Program 1 to tape or disk. Turn your computer off, 
then on again, to reset it. 
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Now type in Program 2, the BASIC part of Hi-Res Graph- 
ics Editor. You'll find "The Automatic Proofreader," Appendix 
C, a great aid in entering any BASIC program, including this 
one. Make sure you've got a copy of tfie Proofreader on tape 
or disk, then type in Program 2. Save it to disk or tape. If 
you're using a Datassette, it's important that Program 2 is 
saved on the same tape as Program 1; it should immediately 
follow the machine language portion. If you have a disk drive, 
just make sure both programs are on the same disk. 

To run the Editor, first load Program 1 with this format: 

\JOAD"fHename"fi,l (for disk) 
lOAD"filenaTne",l,l (for tape) 

Now enter this line and press RETURN: 

POKE 642,128: POKE 44,128: POKE 32768,0: NEW 

This moves BASIC to a safe place in memory — leaving plenty 
of room for hi-res screens. You must type this line each time 
before you load Program 2. 

Next, load the BASIC program — Program 2. Type RUN, 
press RETURN, and you are in the Editor. 

Autoload 

If you want to eliminate some of the steps in loading and run- 
ning the Editor, you can use this short program to automati- 
cally load the two parts of the Editor, 

10 IF FL=0 THEN FL=1 :L0AD"HIRES/ML" ,8, 1 
20 PRINT"{CLR}{2 DOWN}POKE642 , 128 :P0KE44, 128 : POKES 
2768,0:NEW" 

30 PRINT"{3 DOWN}LOAD"CHR$(34)"HIRES/BAS"CHR$(34)" 
,8" 

40 PRINT" {home} " ; 

50 POKE 198, 6: POKE 631, 13: POKE 632, 13: POKE 633,13 
60 POKE 634,82:P0KE 635,213:P0KE 636,13 

The program assumes you have used the filenames 
HIRES/ML for the machine language portion and HIRES/BAS 
for the BASIC part. Change these names in lines 10 and 30 
above to match the names you used. To use the program with 
tape, change the 8 to a 1 in lines 10 and 30. 

All you have to do is load and run this short routine, and 
the rest is done for you. If you are using tape, save this rou- 
tine before you save Programs 1 and 2. 
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Set the Joystick Speed 

The first prompt in Hi-Res Graphics Editor is for joystick 
speed. Enter a number from 1 to 10 (10 is fastest). The lower 
the number, the more control you have over drawing. You can 
experiment with these numbers to find the best speed for your 
purposes. 

Next, the screen dears and a rectangle appears in the cen- 
ter. This is the sprite cursor. Press the letter D and the box will 
change into an arrow. You are now in Draw Mode. With a 
joystick in port 2, you can move this arrow around the screen. 
(A trackball will also work with the Editor. In fact, it seems to 
give you even finer drawing and movement control.) 

Pressing the fire button draws on the screen. If what you 
have drawn is invisible, press B to change the background 
color and F to change the foreground color. Keep pressing 
these keys to step through the sequence of all possible colors. 

Erasing with the Arrow 

If you wish to erase what you've drawn, engage the SHIFT 
LOCK key on the keyboard. Then hold down the fire button 
and use ttie joystick to point the arrow at any pixel you want 
to erase. To start over with a clean slate, just press the fl key. 
This clears the screen. 

Sprite Mode can be accessed by pressing the A (Add), S 
(Stamp), C (Copy), or E (Erase) key. Let's explore the most in- 
teresting of these, hitting the letter C. 

Using the joystick, move the rectangle around the screen 
until it's superimposed on part of your original drawing. (If 
you've cleared the screen, you can return to Draw Mode by 
pressing D). Press the fire button, and the contents of the 
screen under the sprite will be copied onto the sprite. 

You can enter Add Mode at any time by pressing A. (In 
fact, you're automatically in Add Mode as soon as you copy 
onto a sprite.) In this mode, you can move your sprite around 
the screen and plant the image anywhere you like. (You add 
the image of the sprite to the images already on the screen.) If 
you hold the button down while you have the sprite, the 
sprite's image becomes a wide brush, which you can use for 
caUigraphy and to create other interesting effects. 

A Graphic Stamp 

Stamp Mode replaces the contents of the screen with the con- 
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tents of the sprite. If you put the rectangle over a fUled-in 
area, for example, and your sprite is mostly empty, it will 
erase much of what's beneath the sprite. 

If you make a mistake in your drawing, use E, Erase 
Mode. This mode transforms the sprite cursor into a giant 
eraser which clears any pixels it passes over. 

A Sprite Editor 

You can create your own sprites by enlarging the sprite to full- 
screen proportions. Hold down the f7 key briefly. The screen 
will clear and an enlarged image of the sprite will appear in 
the upper left comer of the screen. To edit this sprite, press 
the fire button of the joystick as you move the cursor in this 
area. Erasing is simple. Just engage the SHIFT/LOCK key, and 
instead of drawing to the image, you will erase parts of the 
sprite. The fl key clears the sprite, just as it cleared the screen 
in hi-res mode. 

If you want to save or load a hi-res screen, you must do it 
from this sprite definition mode. (It doesn't save the sprite 
shape, only the hi-res screen you've created.) Hold the CTRL 
key while you press L for LOAD, and a series of prompts will 
then appear for loading from disk or tape. Likewise, holding 
CTRL and S allows you to save to disk or tape. 

Anytime you wish to return to hi-res mode, simply hold 
f 7 down for a moment. You can then use the sprite definition 
you have just created to produce intricate pictures on the hi- 
res screen. 

Two Graphics Screens 

The Editor contains a feature which allows you to have two 
full screens of graphics in memory at one time. Press T to tog- 
gle between them. When you first try this function, the screen 
will fill with garbage if nothing has been created on the alter- 
nate screen. (There is undefined data in this area.) 

Clear the screen (using the f 1 key) to start with a new 
palette. Draw a new design on this screen, and press T to re- 
turn to the old screen. Pressing T again takes you back to your 
second creation, and so on. 

Printing Your Creation 

Since an image created on a computer screen will last only as 
long as the power is on, a hi-res screen dump is included. Just 
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press the letter P, and your 1525 printer (or 1525-compatible 
printer) will print the contents (minus the sprite cursors) of the 
screen. Unfortunately, the new Commodore 1526 printer does 
not have the dot-addressable feature of the 1525 printer, so 
you won't be able to use this screen dump option if you have 
the 1526. 

Here's a summary of the commands in the Hi-Res Graph- 
ics Editor: 



Key Feature 

D Draw Mode 

SHIFT/ 

LOCK on Erase draw (in sprite definition mode, erase parts of 
sprite) 

A Add Mode; overlay sprite with screen 

C Copy screen to sprite 

S Stamp Mode; replace what is onscreen with sprite 

image 

E Erase under sprite 

F Sequence through foreground colors 

B Sequence through background colors 

T Toggle between screens 

f 1 Clear screen (hi-res and sprite definition modes) 

f7 Changes from hi-res to sprite definition and vice versa 

CTRL-L Load screen from disk or tape; available only from 

sprite definition mode 
CTRL-S Save screen from disk or tape, available only from 

sprite definition mode 
P Produce printout on Commodore 1525 printer 



Program 1. Machine Language for Hi'Res Graphics 
Editor 

For easy entry of this machine language program, be sure to use "The Machine language 
Editor: MLK," Appendix D. 

49152 :032, 107, 198, 169, 015, 141, 150 
49158 : 226, 206, 032, 013, 198, 169, 082 
49164 : 128, 133, 044, 141, 130, 002, 078 
49170 t 169 , 000 , 141 , 000 , 1 28 , 169 , 1 13 
49176 : 200 , 141 , 000 , 208 , 141 , 254 , 200 
49182 : 206 , 169 , 003 , 141 , 021 , 208 , 010 
49188 :169, 033, 141, 212, 205, 169, 197 
49194 : 000 , 141 , 016 , 208 , 141 , 255 , 035 
49200 : 206, 169, 100, 141, 001, 208, 105 
49206 : 141 , 003 , 208 , 173 , 024, 208 , 043 
49212 :041, 240, 009, 008, 141, 024, 011 
49218 : 208, 173, 017, 208, 009, 032, 201 
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49224 
49230 
49236 
49242 
49248 
49254 
49260 
49266 
49272 
492 78 
49284 
49290 
49296 
49302 
49308 
49314 
49320 
49326 
49332 
49338 
49344 
49350 
49356 
49362 
49368 
49374 
49380 
49386 
49392 
49398 
49404 
49410 
49416 
49422 
49428 
49434 
49440 
49446 
49452 
49458 
49464 
49470 
49476 
49482 
49488 
49494 
49500 
49506 
49512 
49518 



141,017,208 
238,002,032 
107,192,032 
186,197,032 
186,199,032 
238,002,240 
032,141,248 
141,039,208 
173,227,205 
018,169,076 
169,248,141 
014,141,241 
192,169,063 
169,228,141 
025,141,241 
205,141,249 
220,041,015 
056,169,015 
141,252,206 
204,252,206 
010,168,185 
185,203,192 
194,214,193 
194,226,193 
193,002,194 
193,244,193 
050,205,001 
173,001,208 
208,233,001 
096,173,197 
208,144,012 
024,173,001 
141,001,208 
254,206,237 
253,206,173 
001,013,253 
173,198,205 
169,001,141 
063,193,024 
105,001,141 
255,206,105 
206,056,173 
000,141,253 
206,233,001 
144,015,173 
001,141,016 
206,141,000 
016,208,041 
208,173,254 
208,096,056 



,169,000,141,236 
,182,200,032,252 
,004,194,032,133 
,239,197,032,205 
,008,201,173,127 
,230,096,169,053 
,007,169,001,194 
,238,040,208,220 
,201,003,208,113 
,141,198,205,165 
,197,205,169,237 
,002,076,160,004 
,141,198,205,088 
,197,205,169,235 
,002,173,212,182 
,007,173,000,169 
,141,253,206,020 
,237,253,206,086 
,160,000,200,115 
,208,250,152,178 
,204,192,072,255 
,072,096,002,180 
,218,193,002,194 
,230,193,237,203 
,222,193,251,247 
,002,194,169,193 
,208,176,012,112 
,056,173,001,078 
,141,001,208,008 
,205,205,001,099 
,173,001,208,230 
,208,105,001,002 
,096,056,173,171 
,198,205,141,231 
,255,206,233,066 
,206,144,014,145 
,141,254,206,185 
,255,206,076,118 
,173,254,206,189 
,254,206,173,162 
,000,141,255,250 
,254,206,233,166 
,206,173,255,072 
,013,253,206,218 
,016,208,009,133 
,208,173,254,111 
,208,096,173,148 
,254,141,016,006 
,206,141,000,062 
,173,254,206,079 
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49524 : 237, 241, 002, 141, 253, 206, 172 

49530 : 173 , 255 , 206 , 233 , 000 ,013 ,234 

49536 :253, 206, 176, 017, 056, 173, 241 

49542 : 241 , 002 , 233 , 001 , 141 , 254, 238 

49548 : 206 , 169 , 000 , 141 , 255 , 206 , 093 

49554 : 076 , 166 , 193 , 056 , 173 , 254 , 040 

49560 : 206, 233, 001, 141, 254, 206, 169 

49566 : 173 , 255 , 206 , 233 , 000 , 141 , 142 

49572 : 255, 206, 056, 173, 254, 206, 034 

49578 : 233, 000, 141, 253, 206, 173, 152 

49584 : 255, 206, 233, 001, 013, 253, 113 

49590 : 206 , 144, 015 , 173 ,016 , 208 , 176 

49596 :009, 001, 141, 016, 208, 173, 224 

49602 : 254 , 206 , 141 , 000 , 208 , 096 , 075 

49608 :173, 016, 208, 041, 254, 141, 009 

49614 : 016 , 208 , 173 , 254 , 206 , 141 , 180 

49620 :000, 208, 096, 032, 227, 192, 199 

49626 : 096 , 032 , 247 , 192 , 096 , 032 , 145 

49632 :012, 193, 096, 032, 112, 193, 094 

49638 : 096 , 032 , 227 , 192 ,032,112,153 

49644 : 193, 096, 032, 247, 192, 032, 004 

49650 : 112 , 193 , 096 , 032 , 247 , 192 , 090 

49656 :032, 012, 193, 096, 032, 227, 072 

49662 : 192, 032, 012, 193, 096, 096, 107 

49668 : 173 , 001 , 208 , 141 , 003 , 208 , 226 

49674 : 173 , 000 , 208 , 141 , 002 , 208 , 230 

49680 : 173 , 016 , 208 , 041 ,001 , 240 , 183 

49686 : 011 , 169 , 002 , 013 , 016 , 208 , 185 

49692 :141, 016, 208, 076, 042, 194, 193 

49698 : 169 , 253 , 045 , 016 , 208 , 141 , 098 

49704 : 016, 208, 056, 173, 254, 206, 185 

49710 : 233, 024, 141, 250, 206, 173, 049 

49716 :255, 206, 233, 000, 141, 251, 114 

49722 : 206 , 165 , 197 , 201 , 013 , 240 , 056 

49728 :023, 201, 010, 240, 030, 201, 001 

49734 : 014 , 240 , 046 , 201 , 018 , 240 , 061 

49740 : 053 , 201 , 020 , 240 , 079 , 201 , 102 

49746 : 003 , 240 , 025 , 076 , 1 68 , 194 , 020 

49752 : 169, 000, 141, 227, 205, 032, 094 

49758 : 138,194,076,168,194, 169,009 

49764 1001,141,227,205,032,138,076 

49770 : 194, 076, 168, 194, 032, 138, 140 

49776 :194, 076, 180, 199, 076, 168, 237 

49782 : 194 , 169 , 002 , 141 , 227 , 205 , 032 

49788 :032, 138, 194, 076, 168, 194, 158 

49794 : 169 , 003 , 141 , 227 , 205 , 076 , 183 

49800 : 168 , 194 , 169 , 172 , 141 , 000 ,212 

49806 : 208 , 141 , 254 , 206 , 169 , 000 , 096 

49812 :141, 016, 208, 141, 255, 206, 091 

49818 : 169 , 124, 141 , 001 , 208 , 096 , 125 
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49824 : 169, 004, 141, 227, 205, 032, 170 

49830 : 138, 194, 173 , 227 , 205 , 201 , 024 

49836 :003, 208, 016, 169, 034, 141, 231 

49842 : 212 , 205 , 173 , 021 , 208 , 041 , 014 

49848 :254, 141, 021, 208, 076, 204, 064 

49854 : 194 , 169 , 033 , 141 , 2 12 , 205 , 120 

49860 : 173, 021, 208, 009, 003, 141, 239 

49866 : 021 , 208 , 056 , 173 , 001 , 208 , 101 

49872 :233, 050, 141, 248, 206, 173, 235 

49878 : 000 , 220 , 041 , 016 , 208 , 017 , 204 

49884 t 169 ,000 , 141 , 224 , 206 , 162 ,098 

49890 : 000 , 173 , 227 , 205 , 201 , 004 , 012 

49896 :208, 006, 076, 243, 194, 076, 011 

49902 : 018, 196, 076, 125, 195, 173, 253 

49908 :250, 206, 141, 218, 205, 173, 157 

49914 : 251, 206, 141, 219, 205, 169, 161 

49920 : 128 , 141 , 216 , 205 , 169 , 000 , 091 

49926 : 168, 170 , 141 , 214 , 205 , 142 ,022 

49932 :222, 205, 140, 221, 205, 032, 013 

49938 : 022 , 196 , 174 , 222 , 205 , 172 , 241 

49944 : 221, 205, 173, 224, 205, 045, 073 

49950 : 206 , 207 , 240 , 012 , 173 , 216 , 060 

49956 :205, 025, 000, 008, 153, 000, 171 

49962 :008, 076, 057, 195, 173, 216, 255 

49968 :205, 073, 255, 057, 000, 008, 134 

49974 : 153 , 000 , 008 ,078,216, 205 , 202 

49980 : 208 , 006 , 169 , 128 , 141 , 216 , 160 

49986 : 205, 200, 024, 173, 250, 206, 100 

49992 :105, 001, 141, 250, 206, 173, 180 

49998 : 251 , 206 , 105 , 000 , 141 , 251 , 008 

50004 : 206, 232, 224, 024, 208, 177, 131 

50010 : 162 , 000 , 173 , 218 , 205 , 141 , 221 

50016 : 250, 206, 173, 219, 205, 141, 010 

50022 : 251 , 206 , 238 , 248 , 206 , 162 , 133 

50028 :000 , 238 , 214 , 205 , 17 3 , 214 , 128 

50034 : 205 ,201 , 021 , 144 , 148 , 169 ,234 

50040 : 001 , 141 , 227 , 205 , 096 , 169 , 191 

50046 : 128 , 141 , 226 , 206 , 172 , 224 , 199 

50052 :206, 185, 000, 008, 045, 226, 034 

50058 : 206 , 240 , 008 , 169 , 001 ,141,135 

50064 : 228 , 206 ,076 , 157 , 195 , 169 , 151 

50070 : 000 , 141 , 2 28 , 206 , 076 , 157 , 1 90 

50076 :195, 173, 227, 205, 201, 003, 136 

50082 : 208 , 039 , 173 , 141 , 002 , 208 , 165 

50088 :008 , 169 , 001 , 141 , 228 , 206 ,153 

50094 : 076 , 182 , 195 , 169 , 000 , 141 , 169 

50100 : 228 , 206 , 024 , 173 , 250 , 206 , 243 

50106 : 105 , 011 , 141 , 250 , 206 , 173 , 048 

50112 : 251, 206, 105, 000, 141, 251, 122 

501 18 : 206 , 032 , 022 , 1 96 , 096 , 142 , 124 
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50124 s 216, 206, 032, 022, 196, 174, 026 

50130 : 216 , 206 , 024 , 173 , 250 , 206 , 005 

50136 :105, 001, 141, 250, 206, 173, 068 

50142 : 251 , 206 , 105 , 000 , 141 , 251 , 152 

50148 : 206 , 1 10 , 226 , 206 , 208 , 152 , 056 

50154 : 238 , 224 , 206 , 232 , 224 , 003 , 081 

50160 : 240, 003, 076, 125, 195, 162, 017 

50166 : 000, 238, 248, 206, 056, 173, 143 

50172 :250, 206, 233, 024, 141, 250, 076 

50178 : 206, 173, 251, 206, 233, 000, 047 

50184 : 141 , 251 , 206 , 172 , 224 , 206 , 184 

50190 : 192 , 063 , 144 , 001 , 096 , 076 , 074 

50196 :125, 195, 173, 250, 206, 141, 086 

50202 : 250, 207 , 173 , 251 , 206 , 141 , 230 

50208 :251 , 207 , 173 , 248 , 206 , 141 ,234 

50214 : 248 , 207 , 169 , 000 , 141 , 249 ,028 

50220 : 207, 173, 250, 207, 141, 212, 210 

50226 : 207, 173, 251, 207, 141, 213, 218 

50232 :207, 173, 248, 207, 141, 214, 222 

50238 : 207 , 173 , 249 , 207 , 141 , 215 , 230 
50244 :207 ,173 ,215 ,207 ,074,141 ,061 

50250 : 217 , 207 , 173 , 214 , 207 , 106 , 174 

50256 :141, 216, 207, 173, 217, 207, 217 

50262 : 074 , 141 , 217 , 207 , 173 , 216 , 090 

50268 :207, 106, 141, 216, 207, 173, 118 

50274 : 2 17 , 207 , 074 , 141 , 2 17 , 207 , 137 

50280 : 173, 216, 207, 106, 141, 216, 139 

50286 : 207 , 173 , 213 , 207 , 074 , 141 , 101 

50292 8219,207,173,212,207,106,216 

50298 : 141 , 218 , 207 , 173 , 219 , 207 , 007 

50304 :074, 141, 219, 207, 173, 218, 136 

50310 : 207 , 106 , 141 , 218 , 207 , 1 73 , 162 

50316 :219, 207, 074, 141, 219, 207, 183 

50322 : 173, 218, 207, 106, 141, 218, 185 

50328 :207, 173, 214, 207, 041, 007, 233 

50334 : 141 , 220 , 207 , 1 73 , 2 16 , 207 , 042 

50340 : 010 ,046 , 2 17 , 207 , 010 , 046 , 188 

50346 :217, 207, 010, 141, 210, 207, 138 

50352 :046, 217, 207, 173, 217, 207, 219 

50358 : 141, 211 , 207 , 173 , 210 , 207 , 051 

50364 :010, 046, 217, 207, 010, 046, 212 

50370 : 217, 207 , 109 , 210 , 207 , 141 , 005 

50376 :216, 207, 173, 211, 207, 109, 043 

50382 : 217 , 207 , 141 , 217 , 207 , 173 , 088 

50388 1216,207,010,046,217,207,091 

50394 : 010 , 046 , 2 17 , 207 , 010 , 046 , 242 

50400 :217, 207, 141, 216, 207, 173, 105 

50406 : 218 , 207 , 010 , 046 , 219 , 207 , 1 13 

50412 :010, 046, 219, 207, 010, 046, 006 

50418 1219,207,141,218,207,024,234 
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50424 : 173, 216, 207, 109. 218, 207, 098 
50430 : 141 , 208 , 207 , 173 , 2 17 , 207 , 127 
50436 : 109, 219, 207, 141, 209, 207, 072 
50442 : 024 , 173 , 220 , 207 , 109 , 208 , 183 
50448 :207, 141, 208, 207, 169, 000, 180 
50454 s 109 , 209 , 207 , 141 , 209 , 207 , 080 
50460 $024,169,032,109,209,207,010 
50466 : 141 , 209 , 207 , 173 , 208 , 207 , 155 
50472 :133, 251, 173, 209, 207, 133, 122 
50478 : 252 , 173 , 212 , 207 , 041 , 007 , 170 
50484 : 141, 225, 207, 056, 169, 007, 089 
50490 : 237 , 225 , 207 , 141 , 225 , 207 , 020 
50496 : 169 , 000 , 141 , 206 , 207 , 056 , 075 
50502 : 173 , 225 , 207 , 046 , 206 , 207 , 110 
50508 :206, 225, 207, 016, 245, 160, 111 
50514 : 000, 173,227,205,201,005,125 
50520 : 240 ,090 , 201 , 002 , 240 , 064 , 157 
50526 : 201 ,004,208,003,076,180,254 
50532 :197, 173, 228, 206, 240, 010, 130 
50538 : 177 , 251 ,013 , 206 , 207 , 145 , 081 
50544 :251, 076, 180, 197, 173, 227, 192 
50550 : 205 , 201 , 001 , 240 , 018 , 1 73 , 1 88 
50556 : 206 , 207 , 073 , 255 , 141 , 206 , 188 
50562 : 207 , 177 , 251 , 045 , 206 , 207 ,199 
50568 :145, 251, 076, 180, 197, 177, 138 
50574 : 251 , 045 , 206 , 207 , 240 , 032 , 099 
50580 : 177, 251, 013, 206, 207, 145, 123 
50586 : 251, 076, 180, 197, 177, 251, 006 
50592 :045, 206, 207, 240, 015, 173, 022 
50598 : 206 , 207 , 073 , 255 , 141 , 206 , 230 
50604 : 207 , 17 7 , 25 1 , 045 , 206 , 207 , 241 
50610 : 145, 251, 177, 251, 141, 224, 087 
50616 :205 , 096 , 165 , 197 , 201 , 004 ,028 
50622 s 208 , 046 , 169 , 000 , 133 , 170 , 148 
50628 : 169, 032, 133, 171, 160, 000, 093 
50634 : 152, 145, 170, 056, 165, 170, 036 
50640 :233 ,255 , 141 ,212 , 206 ,165 , 140 
50646 : 171 , 233 , 063 , 013 , 212 , 206 , 088 
50652 :240, 016, 024, 165, 170, 105, 172 
50658 : 001 , 133 , 170 , 165 , 171 , 105 , 203 
50664 :000, 133, 171, 076, 200, 197, 241 
50670 :096, 165,197,170,201,028,071 
50676 s208, 008, 169, 015, 141, 212, 229 
50682 : 206, 076, 010, 198, 201, 021, 194 
50688 : 208 , 104 , 169 , 240 , 141 , 212 , 050 
50694 : 206, 076, 034, 198, 238, 214, 204 
50700 : 206 , 173 , 214 , 206 , 045 , 212 ,044 
50706 : 206, 201, 015, 208, 035, 173, 088 
50712 : 214, 206, 041, 240, 141, 214, 056 
50718 : 206, 076, 058, 198, 024, 173, 253 
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50724 : 214, 206, 105, 016, 141, 214, 164 

50730 : 206 , 045 , 2 12 , 206 , 201 , 240 , 128 

50736 :208, 008, 173, 214, 206, 041, 130 

50742 : 015 , 141 , 214, 206 , 169 , 000 , 031 

50748 :133, 170, 169, 004, 133, 171, 072 

50754 : 173 , 214 , 206 , 160 , 000 , 145 , 196 

50760 : 170, 056, 165, 170, 233, 231, 073 

50766 : 141, 212, 206, 165, 171, 233, 182 

50772 :007, 013, 212, 206, 176, 016, 202 

50778 :024, 165 , 170, 105 ,001 , 133 , 176 

50784 : 170, 165, 171, 105, 000, 133, 072 

50790 : 171 , 076 , 066 , 198 , 096 , 160 , 101 

50796 :128, 185, 119, 198, 153, 064, 187 

50802 : 008 , 136 , 016 , 247 , 096 , 255 , 104 

50808 :255, 255, 192, 000, 003, 192, 249 

50814 : 000, 003, 192, 000, 003, 192, 004 

50820 : 000, 003, 192, 000, 003, 192, 010 

50826 : 000 , 003 , 192 , 000 , 003 , 192 , 016 

50832 :000, 003, 192, 000, 003, 192, 022 

50838 : 000 , 003 , 192 , 000 , 003 , 192 , 028 

50844 : 000 , 003 , 192 , 000 , 003 , 19 2 , 034 

50850 : 000 , 003 , 1 92 , 000 , 003 , 192 , 040 

50856 :000, 003, 192, 000, 003, 192, 046 

50862 : 000 , 003 , 192 , 000 , 003 , 255 ,115 

50868 :255, 255, 000, 000, 048, 000, 226 

50874 : 000 , 060 , 000 , 000 , 063 , 000 , 05 3 

50880 : 000 , 062 , 000 , 000 ,055, 000 ,053 

50886 : 000 , 003 , 128 , 000 , 001 , 192 , 010 

50892 :000, 000, 224, 000, 000, 000, 172 

50898 : 000 , 000 , 000 , 000 , 000 , 000 , 210 

50904 : 000 , 000 , 000 , 000 , 000 , 000 , 2 16 

50910 : 000 , 000 , 000 , 000 , 000 , 000 ,222 

50916 : 000 , 000 , 000 , 000 , 000 , 000 , 228 

50922 : 000 , 000 , 000 , 000 , 000 , 000 , 234 

50928 : 000 ,000 , 000 , 000 , 000 , 000 , 240 
509 34 : 000 ,000 , 000 , 000 , 000 , 000 , 246 
50940 :000, 169, 012, 141, 033, 208, 047 

50946 : 169, 147 , 032 , 210 , 255 , 169 ,216 

50952 :021, 141, 024, 208, 169, 027, 086 

50958 : 141 , 017 , 208 , 169 , 000 , 141 , 178 

50964 :208, 205, 133, 180, 141, 207, 070 

50970 : 205 , 141 , 206 , 205 , 133 , 195 , 087 

50976 :169, 216, 133, 196, 169, 004, 151, 

50982 : 133 , 181 , 162 , 000 , 160 , 000 , 162 

50988 :169, 128, 141, 210, 205, 140, 013 

50994 : 206 , 205 , 172 , 207 , 205 , 185 , 206 

51000 : 000 , 008 , 140 , 207 , 205 , 172 , 020 

51006 1206,205,045,210,205,240,149 
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51012 :011, 169, 001, 145, 195, 169, 246 

51018 : 160 , 145 , 180 , 076 ,088 , 199 , 154 

51024 : 169, 000, 145, 195, 169, 160, 150 

51030 : 145, 180, 024, 165, 195, 105, 132 

51036 :001, 133, 195, 165, 196, 105, 119 

51042 :000, 133, 196, 024, 165, 180, 028 

51048 :105, 001, 133, 180, 165, 181, 101 

51054 : 105, 000, 133, 181, 078, 210, 049 

51060 -.205,173, 210, 205, 240, 003, 128 

51066 : 076 , 049 , 199 , 238 , 207 , 205 , 072 

51072 : 169 , 128 , 141 , 2 10 , 205 , 232 , 189 

51078 : 224 , 003 , 144 , 167 , 024 , 165 , 093 

51084 : 180, 105 ,016 , 133 , 180 , 165 , 151 

51090 : 181 , 105 , 000 , 133 , 181 , 024 , 002 

51096 :165, 195, 105, 016, 133, 195, 193 

51102 : 165 , 196 , 105 , 000 , 133 , 196 , 185 

51108 :162, 000, 238, 208, 205, 173, 126 

51114 : 208 , 205 , 201 ,021 , 176 ,003 ,216 

51120 : 076, 049, 199, 096, 169, 001, 254 

51 126 : 141 , 238 , 002 , 096 , 165 , 197 , 253 

51132 !201, 041, 240, 001, 096, 169, 168 

51138 : 000, 032, 189, 255, 169, 004, 075 

51144 : 170, 160, 255, 032, 186, 255, 234 

51150 1032,192,255,162,004,032,115 

51156 1201,255,176,003,076,220,119 

51162 : 199 , 096 , 169 , 008 , 032 , 210 , 164 

51168 :255, 169, 013, 032, 210, 255, 134 

51174 : 162, 000, 169, 001, 141, 204, 139 

51180 : 205, 169, 000, 141, 250, 206, 183 

51186 : 169 , 000 , 141 , 251 , 206 , 169 , 154 

51192 : 199 , 141 , 248 , 206 , 169 , 005 , 192 

51198 : 141 , 227 , 205 , 142 , 242 , 002 ,189 

51204 :032, 022, 196, 174, 242, 002, 160 

51210 : 173 , 224, 205 , 045 , 206 , 207 ,046 

51216 : 240, 012, 173, 202, 205, 013, 093 

51222 :204, 205, 141, 202, 205, 076, 031 

51228 :041, 200, 173, 204, 205, 073, 156 

51234 : 255 , 045 , 202 , 205 , 141 , 202 , 060 

51240 :205, 014, 204, 205, 173, 204, 021 
51246 : 205 , 201 , 128 , 240 , 020 , 024 , 096 

51252 : 173 , 250 , 206 , 105 ,001 , 141 , 160 

51258 : 250, 206, 173, 251, 206, 105, 225 
51264 :000, 141, 251, 206, 076, 001, 227 
51270 : 200, 173, 202, 205, 009, 128, 219 

51276 : 224, 045, 144, 010, 173, 202, 106 

51282 : 205, 041, 031, 009, 128, 141, 125 
51288 :202, 205, 168, 032, 210, 255, 136 
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51294 : 152, 032, 210, 255, 169, 001, 145 
51300 : 141, 204, 205, 169, 000, 141, 192 
51306 : 202, 205, 056, 173, 250, 206, 174 
51312 :233, 006, 141, 250, 206, 173, 097 
51318 : 251, 206, 233, 000, 141, 251, 176 
51324 :206, 206, 248, 206, 173, 248, 131 
51330 : 206, 201, 255, 240, 003, 076, 087 
51336 : 001, 200, 224, 045, 176, 031, 045 
51342 :024, 173, 250, 206, 105, 007, 139 
51348 :141, 250, 206, 173, 251, 206, 095 
51354 : 105, 000, 141, 251, 206, 232, 065 
51360 : 169 , 199 , 141 , 248 , 206 , 169 ,012 
51366 : 013, 032, 210, 255, 076, 001, 241 
51372 :200, 169, 013, 032, 210, 255, 027 
51378 :032, 231, 255, 096, 174, 240, 182 
51384 :002, 160, 255, 136, 208, 253, 174 
51390 : 202, 208, 248, 096, 173, 167, 004 
51396 :002, 174, 168, 002, 160, 001, 191 
51402 1032,186,255,173,169,002,251 
51408 :162, 172, 160, 002, 032, 189, 157 
51414 : 255 , 169 , 000 , 162 , 000 , 160 , 192 
51420 :032, 032, 213, 255, 096, 173, 253 
51426 : 167 , 002 , 174 , 168 , 002 , 160 , 131 
51432 :001, 032, 186, 255, 173, 169, 024 
51438 : 002 , 162 , 172 , 160 , 002 , 032 , 000 
51444 : 189, 255, 169, 032, 133, 254, 252 
51450 : 169, 000, 133, 253, 169, 253, 203 
51456 : 162, 255, 160, 063, 032, 216, 120 
51462 : 255 , 096 , 165 , 197 , 201 , 022 , 174 
51468 :240, 001, 096, 169, 000, 133, 139 
51474 : 170, 169,032 , 133 , 171 , 169 ,094 
51480 :000, 133, 180, 169, 096, 133, 223 
51486 : 181, 160, 000, 177, 170,141,091 
51492 :062, 003, 177, 180, 141, 064, 151 
51498 : 003 , 173 , 062 , 003 , 145 , 180 , 096 
51504 :173, 064, 003, 145, 170, 024, 115 
51510 : 165, 170, 105, 001, 133, 170, 030 
51516 :165, 171, 105, 000, 133, 171, 037 
51522 :024, 165, 180, 105, 001, 133, 162 
51528 :180, 165, 181, 105, 000, 133, 068 
51534 : 181, 056, 165, 170, 233, 255, 114 
51540 : 141, 200, 205, 165, 171, 233, 175 
51546 : 063 , 013 , 200 , 205 , 144 , 193 , 140 
51552 1096,013,013,013,013,013,001 
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r-1 Program 2. BASIC Portion of Hi-Res Graphics Editor 

L J For mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C. 

5 INPUT "{CLR} JOYSTICK SPEED (1-10)";JS$ :rem 137 

6 IP VAL{JS$)<10R VAL(JS$)>10 THEN5 : rem 192 
I I 7 POKE752,ll-VAL(JS$) :rein 180 

8 FOR T= 2048TO2048+64:POKET,0:NEXT :rem 22 

10 SYS50624 :rem 97 

p-t 11 SYS49152 I rem 102 

' 12 GETA$:IF PEEK( 197 ) <> 3THEN12 :rem 199 

13 FOR T= 1 TO 300:NEXT :rem 188 

15 SYS50941 :rem 104 

16 VI=53248 : POKEVI+21 , 1 : POKEVI , 21 : POKEVI+16 , PEEK( V 
1+16 )0R1:P0KEVI +1,100 :rera 51 

17 POKE2040,32 :rem 238 
20 SC= 1024:PX=0:PY=0:CN=0:OS=55296:OC=PEEK(OS) 

:rem 24 

30 GET A$:IF A$=""THEN CN=CN+1 :rem 65 

31 IF PEEK(197)=4 THEN FOR T=2048TO2048+64:POKET,0 
:NEX'f:SYS50941 :rem 196 

32 IF PEEK(197)=3THENPOKE198,0:FORT=1TO300:NEXT:GO 
TOll :rem 62 

33 IF A§="{L}"THEN GOSUB 300 :SYS51394 :GOSUB400 :SYS 
50941 :rem 242 

34 IF A$=" {HOME} "THEN GOSUB300 :SYS51425 :GOSUB400 :S 
YS50941 :rem 245 

40 IF CN= 2 THEN POKE SC,PEEK(SC)OR128:CN=0 

:rem 147 

50 IF CN= 1 THEN POKE SC,PEEK(SC)AND127 : rem 140 

60 IF { PEEK ( 56320 )AND16)<>0 THEN 65 :rem 58 

61 IF PEEK(653)THEN POKESC+54272,0:SH=1 :GOSUB200:G 
OTO 65 :rem 246 

63 POKESC+54272,1 :SH=0:GOSUB 200 : rem 72 

65 IF 15-PEEK( 56320 )=0 THEN 79 :rem 15 

66 FL=0:OC=PEEK(SC+54272) :OS=SC+54272 :rem 141 
70 ON 15-PEEK( 56320 )AND15G0SUB 80,90,95,100,120,13 

0,140,150,160,170 :rem 163 

72 POKESC, (PEEK(SC)OR128) :rem 243 

75 SC=1024+40*Y+X :rem 155 

79 GOTO 30 :rem 12 

80 Y =Y+(Y>0) : RETURN :rem 180 
90 Y=Y- (Y< 20 ): RETURN :rem 231 
95 RETURN : rem 78 
100 X=X+(X>0) :RETURN :rem 218 
110 RETURN :rem 114 
120 Y=Y+(Y>0) :X=X+(X>0) :RETURN : rem 72 
130 Y=Y-(Y<20) :X=X+(X>0) :RETURN :rem 123 
140 RETURN :rem 117 
150 X=X- (X< 23 ): RETURN : rem 20 
160 Y=Y+(Y>-0) :X=X-(X<23) :RETURN :rem 174 

205 



4 Sound and Graphics 



170 Y=Y- ( Y< 20 ) :X=X-(X< 23) : RETURN : rem 180 

200 BO=Y*3+INT(X/8) : rem 60 

210 Br= 2T(7-(X-INT(X/8)*8)) :P=64*PEEK(2040)+BO 

: rem 49 

220 IF SH=0 THENPOKEP,PEEK(P)ORBT:GOTO230 : rem 10 
225 POKEP,PEEK(P)AND(255-BT) iSH=0 :rem 207 

230 RETURN srem 117 

300 PRINT"{BLK} {7 RIGHT} {CLR} {RVS}D{0FF}ISK OR 
{RVS}t{OFF}APE" :rem 144 

301 GET J$:IF J$=""THEN301 : rem 93 

302 IF J$<>"D"AND J$<>"T"THEN 301 : rem 170 

303 INPUT "FILENAME" ;FI$ :rem 153 

305 IF LEFT$(J$,1)="D"THEN D=8:GOTO310 : rem 70 

306 D=l :rem 75 
310 FOR T= 684 TO 684+LEN(FI$) -1 :POKET, ASC (MID$ (PI 

$,T-683,1) ) :NEXT :reml50 
320 POKE679,D:POKE680,D:POKE681,LEN(FI$) :POKE682,l 

72:POKE683,2 :rem 159 

325 RETURN : rem 122 

400 OPEN15,8,15:INPUT#15,A$,B$,C$,D$:PRINTA$;" ";B 

$" ";C$;" ";C$;" ";D$ :rem 52 

405 CL0SE15 :rem 117 

410 FOR T= ITO 3000 :NEXT : RETURN :rem 55 
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HiSprite 

Michael J. Blyth 

"HiSprite" is a machine language utility which 
gives you fast, easy control over Commodore 64's 
sprites from BASIC, including collision monitor- 
ing, joystick control, boundaries, and a hi^ h' 
resolution "pen." 



If you've ever tried to write a fast-action game program or a 
complex graphic display usirig BASIC, Commodore 64 sprites, 
and high-resolution graphics, you've probably been frustrated 
by the slow speed of the program. BASIC is simply too slow 
when it comes to calculating new horizontal and vertical 
velocities and positions for multiple sprites, reading joysticks, 
monitoring collisions, and doing all the necessary PEEKing 
and POKEing for sprites and high-resolution (hi-res) graphics. 

"HiSprite" is a powerful machine language utility which 
handles all these low-level tasks quickly, freeing you to use 
BASIC for high-level control. HiSprite allows fast, complex, 
and smooth control of all eight sprites for either BASIC or ma- 
chine language programs. Variables define horizontal and 
vertical position, velocity, acceleration, and boundaries for 
each sprite. Other variables determine joystick control, hi-res 
plotting, and what action to take: 

• at boundaries (stop, disappear, bounce, or wrap around) 

• on collision with background (stop, disappear, bounce, or 
continue) 

• on collision with another sprite (stop, disappear, bounce, 
"stick") 

Finally, HiSprite can be used either as a subroutine (with SYS 
in BASIC or JSR in machine language) or in a continuous, 
interrupt-driven mode. 

Entering HiSprite 

First, you'll need to type in HiSprite, found at the end of this 
article. The list of numbers in Program 2 is machine language. 
Only with machine language can you get the speed and power 
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necessary to move sprites easily about the screen. However, 
machine language programs aren't as easy to type in as 
BASIC. To help you with all this typing, you'll find MLX 
(Appendix D) an invaluable tool. Be sure to read Appendix D 
before you start entering HiSprite. 

Type in and save the MLX program. When you're ready 
to enter HiSprite, turn your computer off, then on again (this 
clears it out). Load MLX from tape or disk and type RUN. 
MLX asks you for the starting and ending addresses. The ad- 
dresses are: 

Starting address: 49152 
Ending address: 50705 

Simply follow the directions in Appendix D to enter the pro- 
gram. You don't have to enter it at one sitting, but can save 
your work, typing HiSprite in several sessions. 

How It Works 

After you've entered HiSprite with MLX, you can load it with 
the command LOAD "HISPRITE",8,1 for disk or LOAD 
"HISPRITE",1,1 for tape. Type SYS 49152, then NEW and 
CLR. If you're using the demonstration program. Program 1, 
you only need to tj^e it in (or if you've already entered it, 
type LOAD "HISPRlTE.DEMO",8 for disk, LOAD "HISPRITE" 
for tape). If you're using HiSprite with a program of your own, 
you'll first have to SYS 49152, or make sure that statement is 
included in your program. 

Although HiSprite is a complex program, with many vari- 
ables and functions, it's easy to use once you've seen this step- 
by-step demonstration of its abilities. 

In HiSprite, integer arrays hold the information needed 
for controlling each sprite. The horizontal and vertical (X and 
Y) directions are controlled independently. The variables and 
their functions are: 

SP%(i,0 or 1) Position of upper left comer of sprite i 
(where i is from to 7). SP%(f,0)=X position; SP%(i,l)=Y 
position. Any valid integer from —32767 is OK, but the screen 
shows the area from 24 to 344 horizontally and from 50 to 
250 vertically. To position sprite 1 in the upper left comer of 
the screen, you could use: SP%(1,0)=24:SP%(1,1)=50. 

SV%(iVO or 1) X or Y velocity, again for sprite i. Each time 
HiSprite is called, 1/256 of this value is added to the current 
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position. SV%(0,1) = 128 thus means that on every other call, 
sprite will move down one dot or pixel. 

SA%(t,0 or 1) X or Y acceleration. Each time HiSprite is 
called, this value is added to the corresponding velocity. 
SA%(3,0)=10 means that SV%(3,0) (X velocity for sprite 3) 
will be automatically increased by 10 on each call. 

SL%(/,0 or 1) Upper limits for X and Y position. If 
HiSprite detects that sprite i would move beyond its limits, it 
takes appropriate action (see below). 

SL%(i,2 or 3) Lower limits for X and Y position, 
respectively. 

SC/odVO or 1) Options such as joystick control and out-of- 
bounds action (details below). 

SC%(/,2-7) Options for action to take when sprite i col- 
lides with another sprite. 

Now we can get started. If you don't still have HiSprite 
loaded into your 64, type: 

LOAD "HISPRITE",8,1 (LOAD "HISPRITE", 1,1 for tape). 
Then type NEW and CLR. 

Seeing Sprites Move 

To begin with, enter and save Program 1, "HiSprite Demo." 
Of course, you can leave out the REM statements. 

Program 1. HiSprite Demo 

For mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C. 
5 SD=0 : SE%=0 : SF%=0 : SG%=0 : SH%=0 : SI %=0 : S J%=0 : SK%=0 : S 
L%=0:HS=49274 :ren» 145 

10 DIM SP%(7,1),SV%(7,1),SA%(7,1),SL%(7,3),SC%(7,9 
),SR%(7) I rem 186 

20 SE=0: SYS 12*4096 :REM INITIALIZE trem 16 

30 V=53248: POKE V+21,255 :REM ENABLE ALL 8 SPRITE 
S :rem 17 

40 FORI=0TO7: REM FOR EACH SPRITE :rem 200 

50 POKE 2040+1,13 :REM MEMORY LOCATION :rem 174 
60 POKE V+39+I,I :REM SPRITE COLOR : rem 223 

65 SP%(I,0)=60: SP%(I,1)=60: REM POSITION :rem 251 
70 SV%( 1,0) =50*1+5: SV%(I,l)=50*I+50: REM VELOCITY 

:rem 209 

80 SL%(I,0)=320: SL% ( I , 1 )=230i REM UPPER LIMITS 

:rem 55 

85 SL%(I,2)=24: SL%(I,3)=50: REM LOWER LIMITS 

:rem 222 

90 SC%(I,0)=1:SC%(I,1)=1: REM OPTIONS :rem 44 

100 NEXT :rem 208 
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200 PORI=832T0896: POKEI , 255 :NEXT :REM CREATE SPRI 



210 P0RI=844T0885i POKEI, 28: NEXT: PORI=859T0867 : 



Program Notes 

• The arrays and variables in lines 5 and 10 must be the first 
ones used in the program, and must be defined in the order 



• Line 50 defines the location (13*64) of the shape infor- 
mation, which is the same for all eight sprites in this pro- 
gram. You could alter the shape information to create your 
own sprites if you wanted. Line 60 sets a different color for 
each sprite. 

• Lines 200-220 put the shape information where we want it. 

• Line 300 is an infinite loop calling the main part of HiSprite. 

Velocities, Borders, and Acceleration 

Now run the program. You'll see all eight sprites moving 
downward and rightward, then bouncing against the borders 
defined in lines 80 and 90 (0 and 320 horizontally; and 230 
vertically). The speeds vary according to the definition in line 
70. When you've seen enough, press RUN/STOP. Pressing 
RUN/STOP and RESTORE together erases the sprites. Let's 
try some changes. First, adjust the Y velocity in line 70 by 
changing SV%(I,l)=50*I+50 to SV%(I,1)= 100*1+ 150 and 
rerunning the program. You can adjust the X velocity by 
changing SV%(I,0) to something similar. 

Line 90 determines what happens when the borders are 
reached. Try using values through 3 for SC%(I,1) and/or 
SC%(I,0) and see what happens with each one. Then return to 
using 1. 

You can use the joysticks to control {gate) either the veloc- 
ity or the acceleration of sprites. For example, if the vertical 
velocity is gated, then the sprite will only move vertically 
when the joystick is moved up or down. When acceleration is 
gated, the sprite moves continuously but is sped up and 
slowed down by the joystick. Change line 30 and add the 
other two lines: 



TE SHAPE 



:rem 243 



{ SPACE } POKEI , : NEXT 
220 POKE857,8: POKE869,8 
300 SYS HS 
400 GOTO300 



:rem 197 
:rem 63 
:rera 45 
:rem 96 



shown. 
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30 V=53248: POKE V+21,3 
270 SC%(0,0)=33:SC%(0,1)=33 
275 SV%(0,0)=300:SV%(0,1)=300 

Try it. X and Y velodties are gated by the joystick in port 2. 
Now change both values of 33 to 65 in line 270, add line 280, 
and rerun: 

280 SA%(0,0)=10:SA%(0,1)=10 

Now the accelerations are gated. 
Friction and Drawing 

There are other options available with the control or option 
variables SC%(f,0) and SC%(i,l). Unlike the other variables, 
these depend on the setting of individual bits (each integer 
consists of 16 bits numbered to 15). For example, bits 1 and 

control what happens at borders (01= bounce), while bit 5 
controls velocity gating (l=gate). To determine the value 
which will set the desired bits, start with 0, add 1 to set bit 0, 
2 to set bit 1, 4 for bit 2, 8 for bit 3, and so on up to 2048 for 
bit 11. Thus to bounce at borders and gate velocity, we add 1 
(bounce) and 32 (gate velocity) to give 33. Take a look at Table 

1 for the control option bits and values to set. Within a pro- 
gram you may want to set/ clear given bits of SC% like this: 
To set bit K: SC%(...)=SC%(...)OR2tK 

To clear bit K: SC%(...)=SC%(...) AND N0T2TK 

Now we can continue experimenting. Reset SC%(0,0) and 
SC%(0,1) to 1 in line 270, delete 280, and add: 

290 SV%(0,1)=0:POKE V+21,1 
310 SA%(0,1)=120-SP%(0,1) 

Run the program to see the changes in effect. Line 290 cancels 
sprite O's Y velocity and for clarity disables all other sprites; 
line 310 plots a sine curve by defining sprite O's Y acceleration 
in terms of its distance from 120. The sprite acts like a mass 
on a spring, with the tension proportional to the stretch. We 
can add friction (acceleration opposite velocity) by changing 
310 and rerunning: 

310 SA%(0,1)=120-SP%(0,1)-.01*SV%(0,1) 

Finally, here's a taste of hi-res graphics. Add the following line 
and rerun: 

280 SC%(0,1)=257:SYS50647:SYS50577:SYS506 
15 
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This line does four things: makes sprite start drawing; turns 
on the hi-res mode; clears the color information for hi-res 
screen; and clears the hi-res screen itself. To get back to the 
usual mode from hi-res, you can either use SYS 50679 or press 
RUN/STOP together with RESTORE to reset the computer. 

To get interesting Lissajous patterns of motion, you can 
make sprite vibrate in its X direction as well: 

295 A%=RND(l)*8+2:B%=RND(l)*8+2 
310 SA%(0,1)=(120-SP%(0,1))/A% 
320 SA%(0,0)=(120-SP%(0,0))/B% 

In the next section, we'll continue with hi-res and look at 
collisions, multicolor hi-res, and interrupt mode, so save what 
you've done so far. 

Table 1. Sunuxiary of Control Variables 
BASIC Variables 

SP%(i,0) Horizontal position 

Vertical position 
SV%(i,0) Horizontal velocity (dots per 256 calls) 

Vertical velocity 

SA%(i,0) Horizontal acceleration (changes in velocity per call) 

(i,l) Vertical acceleration 
SL%(j,0) Horizontal upper boundary 

(i,l) Vertical upper boundary 

(/,2) Horizontal lower boundary 

(i,3) Vertical lower boundary 

SC%(i,0) Horizontal control: 



Bits 
0-1 



Value Function 



Action at boundary: 



Stop 

1 Bounce (reverse direction) 

2 Wrap (enter at opposite boundary) 

3 Disable (make sprite disappear) 



2-3 



Action on collision with background: 



4 
5 
6 
7 



No action (ignores collision) 
4 Bounce 
8 Stop 
12 Disable 

16 Monitor sprite-sprite collisions 

32 Gate velocity 

64 Gate acceleration 

Joystick in port 2 



128 Joystick in port 1 
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SC%(i,l) Vertical control. Same as SC%(z,0) plus: 
Bits Value Function 
8 256 Pen-down (for hi-res plotting) 

9-10 Pen color (multicolor mode only): 

Screen color 
512 Upper 4 bits of screen memory 
1024 Lower 4 bits of screen memory 
1736 Color nybble (starting at location 
55296) 

SC%(i,2)/(i,3) Horizontal/Vertical: stop on collision with sprite 
whose corresponding bits are set 
(i,4)/(i,5) Horizontal/Vertical: stick on sprite collision 
(z,6)/0',7) Horizontal/Vertical: bounce on sprite collision 
(i,8)/(i,9) Horizontal/ Vertical: disable on sprite collision 
SR%(i) Offset (from beginning of screen) of character lying 

under sprite / 
SD 1= move sprites on interrupt 

0= Don't move sprites on interrupt 
SE% Latched out of bounds flags (1 bit for each sprite) 

SF% Sprite-sprite collision flags 

SG% Background collision flags 

SH% Latched sprite-sprite collision flags 

SI% Latched background collision flags 

SJ% Release switches, sprite-sprite collision 

SK% Release switches, background collisions 

SL% Number of jiffies (1/60 second) required per call in 

interrupt mode (1-255) 

Subroutine Addresses 

Decimal Hex Function 

49152 COOO Initialization 

49274 C07A Main mover subroutine 

50577 C591 Fill main screen with character in 

50607 ($C5AF) 

(color information in normal hi- 
res mode) 

50615 C5B7 Clear hi-res screen 

50644 C5D4 Turn on multicolor hi-res mode 

50647 C5D7 Turn on standard hi-res mode 

50679 C5F7 Turn off hi-res mode 

Note: For the sake of speed, HiSprite does not "look up" the 
location of BASIC variables and arrays, but rather depends on 
their being defined in a fixed order. Therefore, any names can 
be attached to them, except for SP%(...) which must be the 
first array. For example, if the first program line is: 
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A=0:B%=0:C%=0:D%=0:F%=0:G%=0:H%=0:I%=0 
then A will act as SD, B% as SE%, and so on. 

Collision Handling 

One of the most powerful features of HiSprite is its ability to 
monitor and flexibly react to sprite to background and sprite to 
sprite collisions. Let's deal first with the background collisions, 
that is, a collision between a sprite and anything on the screen 
besides another sprite. The sprite's X and Y motion is con- 
trolled by bits 2-3 of SC%(f,0) and SC%(i,l), respectively: 



Bits 


Bit 2 


Total 




Set To 


Set To 


Value 


Action 











No action (collisions ignored) 





1 


4 


Bounce (reverse direction) 


1 





8 


Stop 


1 


1 


12 


Disable (disappear and stop 








moving) 



Try it out. Put a REM at the beginning of line 280 of the al- 
tered version of Program 1 that you saved earlier, delete lines 
310 and 320, and change 270 and 290 to: 

270 SC%(0,0)=:9:SC%(0,1)=5 
290 SV%( 0,1) =200: POKE V+21,1 



Clear the screen, type a few characters here and there on it, 
and run the program. When sprite hits a character it should 
stop its horizontal motion and reverse (bounce) vertically. 
Now make either SC%(0,0) or SC%(0,1)=13 and rerun. This 
will cause the sprite to disappear when it hits a character. Try 
out various combinations with different patterns of characters 
on the screen. For example, if you make both SC%(0,0) and 
SC%(0,1)=77 (that is, l-hl2+64) and both SA%(0,0) and 
SA%(0,1)=10, you have a game where you must maneuver 
your sprite around obstacles. If you miss, your sprite vanishes. 

Collisions between sprites are slightly more complicated 
because we want the flexibility of acting differently on col- 
lisions between different sprites. When bit 4 of SC%(2,0) or 
SC%(i,l) is set, sprite i is monitored for collisions with other 
sprites. SC%(f,2) through SC%(i,9) determine what happens 
when sprite i hits another: 
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Horizontal 



Vertical 



Action 

Stop 



SC%(z,2) 
SC%(i,4) 
SC%(i,6) 
SC%(i,8) 



SC%(/,3) 
SC%(i,5) 
SC%(i,7) 
SC%(/,9) 



Bounce 
Disable 



Stick (stay with otiier sprite) 



Individual bits of SC% (f,2) through SC%(/,9) select the action 
to take when the corresponding sprite is hit. Setting bits 
through 7 selects the corresponding sprite against which the 
action is taken. For example, bit of SC%(3,2) means stop 
sprite 3 horizontally on collision with sprite 0, while bit 3 of 
SC%(2,5) means sprite 2 sticks vertically on collision with sprite 
3. If we want sprite to stick horizontally to sprites 1 and 3, 
and stop vertically when it hits sprites 2 or 4, we use: 

SC%(0,0)=17 (monitor collisions; bounce at borders) 

SC''/o(0,l)=17 

SC%(0,3)=20 (bits 2 and 4 set: 4+16=20) 
SC%(0,4)=10 (bits 1 and 3 set: 2+8=10) 

Experiment again with various combinations before continu- 
ing. Remember that regardless of the settings of SC%(i,2) to 
(f,9), collisions are ignored if bit 4 is not set (value of 16) in 
SC%(0,0) or SC%(0,1). When more than two sprites collide at 
once, the results are sometimes not what you would expect. 
This is because the computer only keeps track of which sprites 
have collided, not between which sprites collisions have 
occurred. 

You may have already noticed that we need a way to free 
sprites once they stop or stick. Two variables do this. Setting 
bit i of SJ% or SK% releases sprite i from sprite or background 
collisions, respectively. Once released, the sprite moves freely 
until it is unstuck (free), then its collision monitoring is re- 
sumed. Thus if sprite 6 is stuck on background, you can say 
SK%=SK%OR2T6 or SK%=SK%OR64 to release it. 

There are a few other useful variables for collisions. SF% 
and SG% contain the current sprite and background coUision 
flags, respectively (bit i is set when sprite i collides with back- 
ground or any sprite). SF% and SG% should be used rather 
than the usual PEEKs (locations 53278 and 53279), since 
PEEKing the flags clears them, SH% and SI% contain latched 
sprite and background collision flags; once one of these bits is 
set by a collision, it remains set until you clear it. This allows 
you to catch events without having to monitor each one 
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constantly. Finally, SE% contains latched out-of-bounds flags; 
bit i is set when sprite i hits one of its boundaries. 

High'Resolution 

The hi-res features of HiSprite are best understood if you're 
familiar with the principles of hi-res on the 64 as outlined in 
the Programmer's Reference Guide, pages 100-105 and pages 
121-128. Briefly, the hi-res screen is an 8K area of memory 
where every pixel of the video screen is represented. HiSprite 
can be used to draw on this screen. For starters, you need to 
get the computer into the hi-res mode. With HiSprite, SYSing 
50647 does this. This places the hi-res screen at location 8192. 
If you need it somewhere else, as you might if you have a 
large program, you must set up the hi-res mode yourself. 

Try this out by typing SYS 50647 and hitting RETURN. 
The screen will turn to garbage. Now type SYS 50615 and RE- 
TURN to clear the hi-res screen.You won't see what you're 
typing; if you make a mistake, type SHIFT-RETURN and start 
over. Why isn't the entire screen the same color? Because the 
hi-res color information comes from the usual screen memory, 
which now has miscellaneous text, including the SYS com- 
mands you just typed. To clear what is now the hi-res color 
screen, type SYS 50577 and RETURN. This fills the color area 
with whatever is in location 50607. There will be a little gar- 
bage at the screen bottom. Now return to the usual mode with 
SYS 50679 and RETURN. You'll see most of the screen filled 
with the letter L. 

Drawing on Hi'Res 

How do you draw on the screen once you're in hi-res mode? 
Setting bit eight of SC%(f,l) puts sprite z's "pen down," caus- 
ing a dot to be drawn near the center of the sprite (specifically, 
the sprite's twelfth column, tenth row). A moving sprite with 
its pen down draws a curve along its path. There is a limita- 
tion, however; the dots are drawn only in positions actually 
occupied by the sprite, not in any it may have passed over. 
Thus velocities greater than 256 (one dot per call) will leave 
discontinuous or dotted curves. Now go back to the original 
version of Program 1, enter line 280 and rerun: 

280 SC% (0,1) =257 J SYS 50647: SYS 50577: SY 
S 50615 
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Try playing around a little. For instance, you could change line 
280 to read FOR A=0 TO 7:SC%(A4)=257:SYS 50647:SYS 
50577:SYS 50615:NEXT, and all eight sprites will use their 
pen. Remember that 

SC%(0,l)=<anythmg>AND NOT256 

will pick up the pen (no drawing) while 

SC%(0,1)= <aiiything>OR256 

will put it down. 

Pen Colors 

In standard hi-res mode, the color of an on dot is taken from 
the upper four bits of the corresponding screen memory loca- 
tion, while the color of off dots is from the lower four bits. All 
on dots in each character position have the same color scheme. 
If we want to set the color a sprite is drawing, we need to 
know what screen memory location to use. If sprite I's pen is 
down, then SR%(0 gives the character position where it is 
drawing. The position is expressed as an offset from the begin- 
ning of the screen. To cause sprite to draw light blue (color 
14) on a black background (color 0), put 0-1-16*14 into the 
locations under the sprite. For instance: 

POKE 1024-1- SR%(0),224 

If you wanted the same pen/background color everywhere, 
you could use 

POKE 50607,224: SYS 50577 

to fill the entire color screen. 

SR%(0 can also be used for other graphics modes as long 
as the sprite's pen is down: 

POKE 1024+SR%(0),0:POKE55296-I-SR%(0),14 

puts a light blue @ (character 0) where sprite is. If you try 
this with Program 1, a light blue @ character should appear in 
the top left-hand comer of the screen. 

Multicolor Hi'Res 

In multicolor hi-res mode, the color of each dot can be set in- 
dependently. The tradeoff is that each dot is twice as wide, so 
there is only half as much horizontal resolution. SYS 50644 
turns on multicolor hi-res mode; SYS 50679 cancels hi-res and 
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multicolor. While in multicolor mode, bits 9 and 10 of 


I ! 
1^ 1 


SC%(i,l) determine pen color, 


as follows: 


Bit 10 Bit 9 Value 


Source of Color Information 







Background color 


u 


1 512 


Upper four bits of screen memory 


1 1024 


Lower four bits of screen memory 




1 1 1536 


Nybble from color memory 


u 


As with the standard hi-res mode, SR%{i) contains the charac- 



ter location offset. To put a color code, say 3, in the color 
nybble under a sprite, POKE 55296 +SR%(0,3. 

Interrupt Mode 

OrdinarUy, HiSprite is active only when it's called, using SYS 
49274 (see line 300 in Program 1; HS is set in line 5). In inter- 
rupt mode, however, HiSprite is automatically called up once 
each video frame, or about 60 times per second. As long as 
the array variable SP%(...) is defined, the sprites will move 
even when no BASIC program is running. This is most useful 
for designing and testing programs, as it allows you to 
manipulate the control variables in direct mode while you 
watch the results. To try this, take out line 280 again and run 
Program 1. Stop the program, and enter interrupt mode by 
typing in direct mode SD = 1 and press RETURN. The sprites 
are moving again. Now change whatever variables you want 
and watch the results. Interrupt mode is turned off by SD=0. 
You can put everything into slow motion by making SL% 
greater than 1. SL% represents the number of video frames re- 
quired to trigger a call to HiSprite. In direct mode, type 
SL%=5: The sprites will slow to a crawl. 

There are two cautions in interrupt mode. First, since the 
interrupt can occur at any time, it will (although rarely) occur j , 

when BASIC has begun, but not yet finished, changing or I ! 

reading a variable such as acceleration. This will seldom make 

any difference, but if it becomes a problem, set SD to to pre- , , 

vent interrupts, do your critical operations, then reset SD to 1. LJ 

Second, you should avoid I/O and screen editing while in 

interrupt mode. In fact, I/O may not work correctly while i , 

HiSprite is active at all, so you may need to hit RUN/ I i 

STOP-RESTORE first. 

HiSprite may seem complex, but if you experiment with it , , 

a bit at a time, you'll see how creative it is and how much you I i 

can do simply by manipulating a few variables and adding a 
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little logic. For starters, a sprite that moves and draws is essen- 
tially a turtle, right? Sprites can easily push, pull, block, de- 
stroy, and bounce each other. Automatically maintained 
velocities and accelerations make it easy to have sprites act 
like physical objects such as balls, rockets, or molecules. 

Using HiSprite with Machine Language 
The only preparation required for using HiSprite from a ma- 
chine language program is setting up the variables to look like 
BASIC variables. VARTAB ($2D-2E) and ARYTAB ($2F-$30) 
should point to the storage areas of the variables and arrays 
used by HiSprite. Integer array elements are two bytes long, 
with the high-order byte first, in twos complement form. Ar- 
rays are stored with the first subscript varying fastest. Thus, if 
SC%(0,0) is stored in $2000-2001, the other locations would 
be: 

$2002-2003 SC%(1,0) 

$200E-200F SC%(7,0) 
$2010-2011 SC%(1,1) 

Table 2 gives the required offsets from the location pointed to 
by ARYTAB or VARTAB to the high-order byte of the element 
shown: 

Table 2. Offsets 
Offset 
Pointer (Decimal) 

VARTAB 2 

10 
17 
24 
31 
38 
45 
52 
59 
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Variable/Element 
SD (Interrupt mode is on if any of 
low-order four bits is 1) 

SE% 

SF% 

SG% 

SH% 

SI% 

SJ% 

SK% 

SL% 
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ARYTAB* 



50 
91 
132 
164 
205 
372 



9 



SP%(0,0) 
SV%(0,0) 
SA%(0,0) 
SL%(0,0) 
SL%(0,2) 
SC%(0,0) 
SR%(0) 



*The first two bytes pointed to by ARYTAB must contain 
$D3D0 (representing "SP%"). Otherwise no header information is 
required. 

linking HiSprite to BASIC Programs 
HiSprite must be loaded before a BASIC program can use it. 
The most straightforward way to do this is manually, that is, 
to enter 

LOAD "fflSPRITE",8,l (or ...,1,1 for tape) 

before running the main program(s). Another possibility is to 
have the main program load HiSprite each time it runs: 

10 IP S=0 THEN S=l: LOAD "HISPRITE" , 8, 1 
20 CLR 

30 . . . REST OF PROGRAM 

If the main program is going to be run repeatedly, however, 
it's pointless to load HiSprite each time. So the third approach 
is to use a loader program to load HiSprite first and then the 
main program: 

10 IP S=0 THEN S=l: L0AD"HISPRITE",8, 1 
20 PRINT" {CLR} {3 D0WN}L0AD"CHR$(34)"MAIN 

{SPACE}PRG"CHR?(34) ",8" 
30 PRINT" {HOME} ":P0KE 631,13xP0KE 198,1:E.ND 

Program 2. HiSprite 

For easy entry of this machine language program, be sure to use "The Machine Language 
Editor: MLK," Appendix D. 

49152 :169, 127, 141,013, 220, 173,075 
49158 1021,003,205,098,196,240,001 
49164 :015, 141, 100, 196, 173, 020, 145 
49170 : 003 , 141 , 099 , 196 , 173 , 098 , 216 
49176 :196, 141, 021, 003, 173, 097, 143 
49182 : 196 , 141 , 020 , 003 , 173 , 017 , 068 
49188 :208, 041, 127, 141, 017, 208, 010 
49194 : 173 , 026 , 208 , 009 , 001 , 141 , 088 
49200 : 026 , 208 , 169 , 240 , 141 , 018 , 082 
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n 
n 



49206 : 208, 169, 129, 141, 013, 220, 166 

49212 : 160 , 059 , 169 , 001 , 145 , 045 , 127 

49218 : 096 , 173 , 025 , 208 , 041 , 001 , 098 

49224 t 208 , 003 , 108 , 099, 196 , 141 , 059 

49230 : 082, 196, 141, 025, 208, 173, 135 

49236 :030, 208, 141 , 084, 196, 173 , 148 

49242 :031, 208, 141,085, 196, 160, 143 

49248 : 002 , 1 77 , 045 , 041 , 015 , 240 , 104 

49254 : 015, 206, 137, 196, 208, 010, 106 

49260 : 160, 059, 177, 045, 141, 137, 059 

49266 : 196, 032, 135, 192, 076, 188, 165 

49272 : 254 , 096 , 173 , 018, 208, 201 , 046 

49278 : 240, 176 , 011 , 201 , 025 , 176 , 187 

49284 : 245 , 144 , 005 , 173 , 082 , 196 , 209 

49290 : 240, 237, 160, 000, 177, 047, 231 

49296 : 201, 211, 208, 229, 200, 177, 090 

49302 : 047, 201 , 208, 208, 222,032,044 

49308 :020, 193, 056, 165, 052, 174, 048 

49314 : 083, 196, 042, 176, 105, 232, 228 

49320 : 044 ,136, 196 , 240 , 247 , 133 , 140 

49326 : 052 , 142 , 083 , 196, 138, 010, 027 

49332 : 141 , 093 , 196 , 109 , 101 , 196 , 248 

49338 : 133, 047, 173, 102, 196, 105, 174 

49344 : 000, 133, 048, 169, 008, 032, 070 

49350 : 149, 193, 176, 003, 032, 102, 085 

49356 : 194, 032, 077, 195, 032, 239, 205 

49362 : 195, 238,093, 196,024, 173, 105 

49368 :083, 196,010, 105,016, 109, 223 

49374 : 101 , 196 , 133 , 047 , 173, 102, 206 

49380 : 196, 105, 000, 133, 048, 169, 111 

49386 5 002,032,149,193,176,003,021 

49392 : 032, 102, 194, 032, 077, 195, 104 

49398 : 032, 035, 196, 024, 160, 205, 130 

49404 : 177 , 047 , 041 , 001 , 240, 157 , 147 

49410 : 173, 136, 196,037,052,240,068 

49416 : 150, 032, 178, 196, 024, 076, 152 

49422 : 159, 192, 032, 126, 193,096,044 

49428 : 162, 008, 181, 046, 157, 100, 162 

49434 : 196, 202 , 208, 248, 173 , 021 , 050 

49440 : 208 , 141 , 136 , 196 , 162 , 255 , 106 

49446 : 142 , 083 , 196 , 232, 134, 052, 109 

49452 : 142, 082, 196, 142, 093, 196, 127 

49458 : 173, 016, 208, 141, 088, 196, 104 

49464 1232,165,045,072,024,105,187 

49470 : 007 , 133 , 045 , 165 , 046 , 072 , 018 

49476 : 144 , 002 , 230 , 046 , 160 , 017 , 155 

49482 : 177, 045, 073, 255, 157, 090, 103 

49488 I 196 , 189 , 084 , 196 , 072 , 160 , 209 

49494 : 031, 017, 045, 145, 045, 104, 217 

49500 : 045 , 136 , 196 , 160 , 01 7 , 145 , 023 
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49506 : 045 , 160, 045 , 049, 045 , 145 , 075 

49512 :045, 073, 255, 160, 017, 049, 191 

49518 : 045 , 157, 095, 196, 202, 208, 245 

49524 :008, 104, 133,046, 104, 133, 132 

49530 :045, 208, 203,096, 162,008,076 

49536 : 189, 100, 196, 149, 046, 202, 242 

49542 : 208 , 248 , 173 , 088 , 196 , 141 , 164 

49548 S016, 208, 173, 136, 196, 141, 242 

49554 :021, 208, 096, 133, 049, 169, 054 

49560 :000, 141, 094, 196, 160, 206, 181 

49566 1177,047,133,051,041,012,107 

49572 : 240, 025, 173, 096, 196, 036, 162 

49578 :052, 240, 018, 169, 004, 036, 177 

49584 :051, 240, 097, 010, 037, 051, 150 

49590 : 208, 082, 165, 052, 045, 091, 057 

49596 :196, 208,071, 165,052,044, 156 

49602 : 095 , 196 , 208 , 002 , 024, 096 , 047 

49608 : 165 , 051 , 041 , 016 , 240, 248, 193 

49614 :024, 165,047, 105, 206, 133, 118 

49620 :053 , 165 , 048, 105, 000, 133 , 204 

49626 : 054, 160, 017, 177, 045, 069, 228 

49632 :052, 170, 160, 128, 049, 053, 068 

49638 : 208, 034, 138, 160, 064, 049, 115 

49644 :053, 208, 039, 138, 160, 096, 162 

49650 : 049 , 053 , 208 , 009 , 1 38 , 160 , 091 

49656 :032,049,053, 208,023,024, 125 

49662 :096, 165, 052, 045, 090, 196, 130 

49668 1 240, 192 , 032 , 060 , 196 , 096 , 052 

49674 : 165, 052, 073, 255, 045, 136, 224 

49680 : 196, 141, 136, 196, 056, 096, 069 

49686 : 162, 255, 232, 106, 144, 252, 149 

49692 {138,010,164,049,192,002,071 

49698 : 208 , 002 , 105 , 015 , 024, 109, 241 

49704 : 101 , 196 , 133 , 053 , 173, 102 , 030 

49710 : 196, 105, 000, 133, 054, 160, 182 

49716 :050, 177, 053, 145, 047, 160, 172 

49722 :051, 177,053, 145,047,236, 255 

49728 :083, 196,144,021,024,160,180 

49734 : 092, 177, 053, 160, 051, 113, 204 

49740 : 047 , 145 , 047 , 160 , 091 , 177 , 231 

49746 :053, 160,050, 113,047, 145, 138 

49752 :047, 160, 206, 177, 053, 133, 096 

49758 : 051, 169, 255, 141, 094, 196, 232 

49764 :024, 096, 173, 094, 196, 208, 123 

49770 : 085, 160, 091, 177, 047, 200, 098 

49776 1017,047,240,076,165,051,196 

49782 : 044, 087, 196, 240, 048, 162, 127 

49788 : 000 , 041 , 128 , 240, 001 , 232 , 254 

49794 :024, 189, 000, 220, 036, 049, 136 

49800 1 240 , 033 , 042 , 036 , 049 , 208 ,232 
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n 

n 



n 
n 
n 
n 



49806 
49812 
49818 
49824 
49830 
49836 
49842 
49848 
49854 
49860 
49866 
49872 
49878 
49884 
49890 
49896 
49902 
49908 
49914 
49920 
49926 
49932 
49938 
49944 
49950 
49956 
49962 
49968 
49974 
49980 
49986 
49992 
49998 
50004 
50010 
50016 
50022 
50028 
50034 
50040 
50046 
50052 
50058 
50064 
50070 
50076 
50082 
50088 
50094 
50100 



049,056, 
160,092, 
145,047, 
160,091, 
145,047, 
160,092, 
113,047, 
177,047, 
145,047, 
141,089, 
240,027, 
196,240, 
128,240, 
000,220, 
042,036, 
174,093, 
196,160, 
109,196, 
001,160, 
002,162, 
047,145, 
047,125, 
024,096, 
128,141, 
196,189, 
241,047, 
092,196, 
177,047, 
160,010, 
241,047, 
160,009, 
196,145, 
162,132, 
196,160, 
010,241, 
047,160, 
027,056, 
237,092, 
047,160, 
164,177, 
047,016, 
160,010, 
145,045, 
240,062, 
201,003, 
040,229, 
170,200, 
145,047, 
047,174, 
:157,109, 



160,051, 
241,047, 
160,050, 
241,047, 
076,192, 
177,047, 
145,047, 
160,050, 
160,050, 
196,200, 
165,051, 
021,162, 
001,232, 
036,049, 
049,240, 
196,024, 
051,113, 
141,092, 
050,177, 
000, 160, 
047,160, 
134,196, 
173,089, 
089,196, 
109,196, 
157,109, 
162,001, 
048,002, 
177,047, 
160,010, 
177,047, 
047,024, 
169,000, 
133,177, 
047,160, 
009,241, 
162,164, 
196,160, 
010,241, 
047,160, 
001,096, 
177,045, 
165,051, 
201,001, 
240,074, 
050,168, 
177,047, 
138,160, 
093,196, 
196,096, 



177,047,170 
160,051,131 
177,047,012 
160,050,141 
194,024,076 
160,051,091 
160,091,013 
113,047,010 
177,047,048 
017,047,118 
044,086,047 
000,041,100 
024,189,004 
240,006,003 
045,096,222 
189,109,249 
047,157,194 
196,162,116 
047,048,221 
010,113,191 
009,177,079 
145,047,194 
196,073,157 
174,093,077 
160,051,163 
196,141,159 
160,050,191 
162,000,228 
160,050,146 
145,047,198 
253,134,078 
096,056,124 
237,092,102 
047,160,189 
132,177,089 
047,048,136 
169,000,168 
165,177,111 
047,160,011 
009,241,150 
134,050,214 
005,052,069 
041,003,076 
240,034,154 
056,169,125 
177,047,099 
160,010,158 
009,145,044 
169,000,085 
166,050,186 
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50106 t 173 , 089 , 196 , 048 , 005 , 224, 153 
50112 »132,240,005,096, 224, 164,029 
50118 t 208, 251, 032, 060, 196, 164, 085 
50124 :050, 076, 160, 195, 169,000,086 
50130 : 160, 050, 036, 051, 112, 002, 109 
50136 : 160 , 091 , 145 , 047 , 200, 145 , 236 
50142 : 047 , 164, 050, 076 , 160, 195 , 146 
50148 : 165, 052, 073, 255, 045, 136, 186 
50154 J 196, 141, 136, 196,096, 173, 148 
50160 1083,196,010,170,024,160,115 
50166 :009, 177,047, 168, 208, 013, 100 
50172 1165,052,073,255,045,088,162 
50178 : 196, 141,088, 196,076, 027, 214 
50184 : 196, 165, 052, 013, 088, 196, 206 
50190 I 141 , 088, 196 , 192 , 001 , 240, 104 
50196 J 006 , 169 , 255 , 157 , 000 , 208 , 047 
50202 8096,160,010,177,047,157,161 
50208 {000,208,096,173,083,196,020 
50214 : 010, 170, 160, 009, 177, 047, 099 
50220 : 240, 006, 169, 255, 157, 001, 104 
50226 s 208, 096, 160, 010, 177, 047, 236 
50232 : 157 , 001 , 208, 096 , 056, 169, 231 
50238 : 000, 160 , 051 , 241 , 047, 160 , 209 
50244 : 051 ,145 , 047 , 169 , 000 , 160 , 1 28 
50250 : 050, 241 , 047, 160, 050, 145, 255 
50256 : 047 , 096 , 000 , 000 , 000, 000 , 223 
50262 :032, 064, 000, 000, 000, 000, 182 
50268 : 000 , 000 , 000 , 000 , 000 , 067 , 159 
50274 : 192, 049, 234, 000, 240, 012, 057 
50280 t 201, 045, 208, 238, 032, 115, 175 
50286 : 000 , 032 , 107 , 169 , 208 , 230 , 088 
50292 : 165 , 020 , 005 , 021 , 208 , 006 , 029 
50298 :169, 255, 133,037,026,036,010 
50304 : 049, 044, 032, 015, 016, 011, 039 
50310 : 000, 255,000,001,067,079,024 
50316 : 080, 089, 082, 073, 071, 072, 095 
50322 : 084, 032, 077, 032, 066, 076, 001 
50328 1 089, 084 , 072 , 044 , 032 , 049 , 010 
50334 : 057* 056, 051, 000, 128,064,002 
50340 :032, 016, 008, 004, 002, 001, 227 
50346 : 192, 192, 048, 048, 012, 012, 162 
50352 J003, 003, 173, 083, 196, 010, 132 
50358 : 170, 189,001 , 208, 201, 240, 167 
50364 : 176 , 004 , 201 , 040 , 176 , 001 , 018 
50370 1096, 056, 233 , 040, 168, 041 , 060 
50376 :007, 141, 161, 196, 169, 000, 106 
50382 : 133, 054, 152, 041, 248, 133, 199 
50388 :053, 010, 038, 054, 010, 038, 159 
50394 : 054, 024, 101, 053, 133, 053, 124 
50400 : 144, 002, 230, 054, 173, 088, 147 
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50406 : 196, 037, 052, 201,001, 189,138 

50412 : 000, 208, 133, 050, 106, 201, 166 

50418 : 166, 176, 205, 201, 006, 144, 116 

50424 : 201 , 056 , 233 , 006 , 024, 106 , 106 

50430 : 024 , 106 , 024 , 101 , 053 , 230 , 024 

50436 :048, 160, 101, 145,047, 133, 126 

50442 :053, 165,054, 105,000, 133,008 

50448 : 054, 136, 145, 047, 198, 048, 132 

50454 : 160 , 003 , 006 , 053 , 038 , 054, 080 

50460 : 136 , 208, 249, 173 , 161 , 196, 127 

50466 : 005, 053, 133, 053, 173, 017, 212 

50472 : 208, 041, 032, 240, 074, 032, 155 

50478 : 120, 197, 024, 101,054,133,163 

50484 : 054, 165, 050, 056, 233, 012, 110 

50490 : 041 , 007 , 170 , 160, 205 , 1 77 , 050 

50496 : 047 , 168 , 173 , 022 , 208 , 041 , 21 1 

50502 : 016, 208, 010, 189, 162, 196, 083 

50508 : 160 , 000 , 01 7 , 053 , 145 , 053 , 248 

50514 : 096, 152, 106, 106, 106, 106, 242 

50520 : 041, 192, 224,002, 144,014, 193 

50526 : 134,050, 202, 024, 106, 106, 204 

50532 : 202, 202, 240, 002, 016, 248, 242 

50538 : 166 , 050, 160, 000, 081 , 053 , 104 

50544 : 061, 170, 196, 081, 053, 145, 050 

50550 : 053, 096, 173,000,221,041,190 

50556 :003, 073, 003, 010, 010, 010, 233 

50562 : 010, 141, 161, 196, 173, 024, 067 

50568 : 208 , 041 , 014, 01 3 , 161 , 196 , 001 

50574 :010,010,096, 173,000, 221, 140 

50580 : 041 , 003 , 073 , 003 , 133 , 054 , 199 

50586 : 173, 024, 208, 041, 240, 102, 174 

50592 :054, 106, 102, 054, 106, 024, 094 

50598 : 105, 003, 133, 054, 169, 000, 118 

50604 : 133, 053, 169, 012, 160, 231, 162 

50610 : 162, 004, 076, 199, 197, 032, 080 

50616 : 120, 197, 024, 105, 031, 133, 026 

50622 :054, 169, 000, 133,053, 160, 247 

50628 :063, 162, 032, 145, 053, 136, 019 

50634 1 192, 255, 208, 249, 198, 054, 078 

50640 : 202 , 208 , 244 , 096 , 056 , 1 76 , 166 

50646 : 001, 024, 173, 024, 208, 041, 173 

50652 : 240 , 009 , 008 , 141 , 024, 208, 082 

50658 : 173, 017, 208, 009, 032, 141, 038 

50664 : 017 , 208, 173 , 022 , 208, 041 , 133 

50670 : 239, 144, 002, 009, 016, 141,021 

50676 : 022 , 208 , 096 , 173, 024 , 208 , 207 

50682 1 041 , 240, 009 , 004, 141 , 024, 197 

50688 : 208, 173, 017, 208, 041, 223, 102 

50694 : 141, 017, 208, 173, 022, 208, 007 

50700 : 041 , 239 , 141 , 022 , 208 , 096 , 247 
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64 Paintbox 

Chris Metcalf 

One of the most powerful features of the. Com- 
modore 64, its high-resolution color graphics, can 
he difficult to use. This machine language pro- 
gram makes accessing this capability easy. By us- 
ing Atari graphics comrruinds, you can plot points, 
set colors, or draw lines with just one statement. 
You can even type in programs ori^nally written 
fcrr Atari graphics mcdes 7 and 8 on your 64- 



The Commodore 64 is an undeniably powerful computer; its 
capabilities in high-resolution color graphics, for example, sur- 
pass those of the Atari and Apple computers. Nonetheless, 
these capabilities can be difficult to access; the POKEs and 
PEEKs required are slow to calculate and slow to execute. "64 
Paintbox" takes Atari's far more powerful command set and 
makes it available to the Commodore 64 user. 

BASIC programs written for Atari graphics modes 7 and 8 
are easily transferred to the Commodore 64 when this graph- 
ics pack is in place. You can type in the program, line by line, 
adding an exclamation mark (!) before each graphics command 
to let the 64 BASIC interpreter know that it is a special com- 
mand. Once this is done, the program will run on the 64 just 
as it would on an Atari. 

64 Paintbox 

To enter Program 1, 64 Paintbox, you first need to load and 
run the MLX program found in Appendix D. MLX makes it 
easy to type in a machine language program like 64 Paintbox 
and insures you'll have a working copy the first time. Once 
you've run MLX, it asks for two addresses. They are: 

Starting address: 49152 
Ending address: 51197 

Now you can begin typing in Program 1. When you're 
through, save it to tape or disk, using the filename 64 
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PAINTBOX if you want to use the autoload program described 
below. 

Load 64 Paintbox by entering: 

LOAD"filenaine",8,l (for disk) 
UOAD" filename", 1,1 (for tape) 

Then type 

SYS 49152:NEW 

to initialize the program and reset the pointers. You're now 
ready to begin typing in any Atari program which uses graph- 
ics mode 0, 7, or 8. 

To simplify loading the program, you may use Program 2, 
"64 Boot," the program following the listing of 64 Paintbox. 
Use "The Automatic Proofreader" program in Appendix C to 
type in this short autoload routine. Save it on the same disk as 
64 Paintbox. (If you're using tape, 64 Boot should precede 64 
Paintbox on the tape. You also need to change line 230 so that 
the 8 is a 1.) Type LOAD"64 BOOT",8 (or just LOAD"64 
BOOT" if you've got a Datassette) and RUN; the program will 
display the command set, load in 64 Paintbox, initialize 64 
Paintbox, and execute a NEW. At that point, you can start 
entering Atari programs. 

No matter which method you use to load 64 Paintbox, the 
Atari graphics commands are easily used. Each command must 
be preceded by an exclamation mark (and a colon, if following 
an IF-THEN statement). The command name can be spelled 
out in full, or abbreviated with a period as on the Atari. How- 
ever, these abbreviations are not expanded when the program 
is listed. The various parameters follow the command name. 
Thus a typical syntax might be: 

!PLOT 100,100 

to plot a point at 100,100. 

As with normal BASIC commands, spaces are ignored, 
whether in the command name or in the parameters. 

Since the 64 Paintbox commands are not standard BASIC, 
the IF-THEN routine will not recognize them as being legal 
commands unless they're preceded with a colon. So, if you 
want to plot a point (for example) only if there is no point 
there already, you might have in the program: 
ILOCATE 10,15,A : IF A = THEN : ICOLOR 1 : IPLOT 10,15 
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64 Paintbox Commands 

The commands themselves are as follows (abbreviations are 
enclosed within parentheses): 

iGRAPHICS n, (!G.) This command mirrors the Atari 
GRAPHICS command, and takes only one parameter, n, the 
graphics mode. Since only graphics modes 7 and 8 are sup- 
ported, all graphics commands between 1 and 6 are treated as 
if they were 0. As with the Atari, either 7 or 8 may have 16, 
32, or 48 added to it. Plus 16 gives no text window; +32 does 
not clear the graphics screen; and +48 combines the two. 
Without any of these extra numbers (just IGRAPHICS 8, for 
instance), the graphics screen will clear and a four-line text 
window will be set up at the bottom. Regardless of the addi- 
tional numbers, however, the screens will always be reset to 
standard Atari graphics colors. 

Do not try to use tape or disk with the text window en- 
abled. For example, if you enter LOAD and hit RUN/STOP, 
the interrupts wdll be partially disabled, and you will need to 
reenter the graphics mode (with +32). Attempted disk access 
will return a 7DEVICE NOT PRESENT ERROR. 

The Atari does not allow plotting to the area "under" the 
text window, but 64 Paintbox does, although the graphics re- 
main concealed until you view what you have done with a 
IGRAPHICS «+48 where n is 7 or 8. Furthermore, when 
working with the graphics screen in immediate mode, it does 
not need a text window, as the Atari itself does. 

!PLOT x,y (!P.) This is the PLOT command. X and y are 
offset from the top left comer of the screen, and have a range 
of 0-319 for X and 0-199 for y in graphics mode 8. In 
GRAPHICS 7, the ranges are 0-159 for x and 0-99 for y. The 
command is not set up to work in graphics mode 0. The PLOT 
command plots in the current color register (see the 
SETCOLOR and COLOR commands). PLOT also sets the 
starting point for the DRAWTO command. 

!POSITION x,y (IPG.) The POSITION command sets the 
starting point for the DRAWTO command without actually 
altering the display. X and y are the same as in the PLOT 
command. This command, like PLOT, positions the graphics 
screen "cursor" (not the actual text cursor), regardless of the 
graphics mode. 

IDRAWTO x,y, (!.) This command, DRAWTO, draws a 
line connecting the old starting point to the specified x,y, us- 
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ing the current color register, ar\d then sets the starting point 
for the next DRAWTO to the specified x,y. The x,y parameters 
have the same range as for PLOT and POSITION. This com- 
mand does not affect the screen in GRAPHICS 0. 

fSETCOLOR r,cl,c2 (!S.) The SETCOLOR command 
changes the specified r to hue (cl) and luminance (c2) in the 
range 0-15. The format is identical to that of the Atari. The 
various registers set the colors of the border, the background, 
the characters, and the pixels according to the table. Note that 
bit pairs (00, 01, 10, and 11) are used to define single pixels in 
graphics mode 7. The number below is the graphics register r 
(the first parameter). 

SETCOLOR r Values 

GRAPHICS GRAPHICS 7 GRAPHICS 8 

01 pair pixels 

1 Characters 10 pair pixels Characters/pixels 

2 Background 11 pair pixels Background 

3 

4 Border Screen color Border 

An unfortunate problem with the way the 64 and the 
Atari are configured is that in graphics mode 7 the 64's 
character color in the window is set by SETCOLOR register 2, 
not 1, and that the text window cannot be set to its own color 
but takes that of the rest of the screen. 

Another problem with register 2 in graphics mode 7 is 
that this register is set to the background color (or white on 
old 64s) whenever the screen is cleared. Thus, printing the 
"clearscreen" character when in graphics mode 7 (even with 
no window) must be avoided, as all the 11 pixel pairs will be- 
come background color: in other words, invisible. Further- 
more, any scrolling of the text window in GRAPHICS 7 will 
scroll strange color data into the 11 pixel pairs. This is, how- 
ever, no problem in graphics mode 8. 

You may be interested to know that executing a 
ISETCOLOR 2,cl,c2 in GRAPHICS 7 or a !SETCOLOR l,cl,c2 
in GRAPHICS 8 causes the character color register at 646 to 
be set to colors cl,c2. Thus, previous color codes are dis- 
regarded when a ISETCOLOR or IGRAPHICS command is 
executed (!GRAPHICS calls ISETCOLOR to set up default 
colors). 

The numbers (0-15) that you can use for cl and c2 in 



4 Sound and Graphics 



SETCOLOR do correspond to various hue and luminance 
settings on the Atari. Take a look at the following chart to see 
what values in 64 Paintbox match Atari's hue and luminance 
values. 

Matching Atari Hue and Luminance to 64 Paintbox 
Color Codes 
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'.COLOR r (!C.) This command specifies which color reg- 
ister (given above for !S.) is to be used for plotting and line 
drawing. In both graphics modes, has the same effect: It 
erases pixels. In GRAPHICS 8, an odd number for r always 
sets the computer to plot pixels. Registers 1-3 are used in 
GRAPHICS 7, where register 1 sets bit pair 01, 2 sets 10, and 
3 sets 11 (note that this is the SETCOLOR number plus one). 

ILOCATE x,y,y (!L.) The LOCATE command returns in 
floating-point variable v the pixel currently at location x,y and 
sets the starting point for DRAWTO to the LOCATEd pbcel. 
Thus, for GRAPHICS 8, either a zero (no pixel) or a one (pixel 
present) is returned. In GRAPHICS 7, a zero also indicates no 
pixel, while one to three correspond to bit pairs 01, 10 and 11. 
Using the LOCATE command with a non-floating-point vari- 
able does nonproductive (though interesting) things, so it's 
best to stick to floating-point variables (that is, no % or $ sym- 
bol after the variable). 
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!FILL x,y (!F.) This command is a more powerful version 
for the Atari XIO fill command. It will fill any area, regardless 
of the shape. It will stop at any on pixel, as well as at the 
edges of the screen. The x and y parameters determine where 
it will start and also set a begin-point for future DRAWTO 
commands. Atari users, remember to draw a line at the left of 
whatever you are going to fill, as this FILL needs a border to 
stop at. However, it's much more flexible than the XIO 
command. 

ITEXT x,y,"string" (!T.) The TEXT command allows text 
to be located starting at any column and row on the GRAPH- 
ICS 8 screen (it will execute on GRAPHICS 7 screens, but pro- 
duces strange multicolored characters). The "string" can be 
characters enclosed in quotes, a string variable, or combina- 
tions of the two. An additional parameter can be passed before 
the "string"; a or 1 in this position determines whether the 
computer will use lower/uppercase text or graphics and 
uppercase. The program is initially set up to use lower- and 
uppercase. No control characters will be printed, but the RVS 
ON and RVS OFF characters have their usual effect of putting 
the characters in-between in reverse video (or inverse video 
for Atari people). Remember that the x and y parameters must 
be specified for each TEXT command, although the 
uppercase/graphics need be set only once to be used repeat- 
edly. The reverse video, however, turns off at the end of the 
string. 

IQUIT (!Q.) This command cuts 64 Paintbox out of the 
command processing loop and removes the check on error- 
message display. The program can be restarted with 
SYS(49152). Calling SYS49152 repeatedly wiU not, by the 
way, create any difficulty. 

Programmer Notes 

Locations 3 and 4 hold two variables used by the interrupt 
that drives the text window to determine uppercase/graphics 
for the window and hi-res/multicolor for the graphics. To use 
location 3 to control the case in the window, POKE 3 with 21 
for uppercase/graphics and with 23 for lowercase. (And note 
that lowercase is required for entering commands in 
lower/uppercase mode.) Register 4 is used by the program to 
determine pbcel plots, LOCATE returns, and so forth, and so 
may be used to flip between hi-res (8) and multicolor (24). 
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Other values generate interesting, and harmless, effects. 
Memory configuration for 64 Paintbox is: 

Location Function 

0400-07E7 Used as the text window (the bottom four lines, at 
least) 

0800-9FFF Unused and completely free for BASIC programs 
A000-BC7F BASIC ROM with RAM underneath 
BC80-BFFF Used for data tables and the FILL routine stacks 
C000-C7FF The 2000 bytes of actual program 
C800-CBFF Used as the color screen for all but 11 pbcels in 
GRAPHICS 8 

CCOO-CFFF Left free for use by the DOS Wedge or other utility 
EOOO-FFFF Operating System ROM, with the graphics screen un- 
der it 

Variable storage is: 

Permanent: locations 3-6, 251-254 (interrupt shadows: 
3=53272, 4=53270) 

Temporary: locations 27-42, 107-113, 158-159, 163-164, 
167-170 

Non-zero page storage: locations 670-699 

Abbreviations for 64 Paintbox Commands 

Command Abbreviation 

DRAWTO !. (This takes the place of REM in Atari BASIC.) 

PLOT !R 

POSITION !P0. 

GRAPHICS !G. 

COLOR !C. 

LOCATE !L. 

FILL !F. 

TEXT !T. 

QUIT !Q. 



Demonstrations 

Program 3 is a short program which illustrates how 64 
Paintbox can be used. It draws several figures on the screen 
and then waits for a keypress from you to continue. To see 
this demonstration, make sure 64 Paintbox is in memory (if 
you load it manually, remember to type SYS 49152 and 
NEW), then load Program 3. Run it and watch the effects. 
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Program 1. 64 Paintbox 

For easy entry of this machine language program, be sure to use "The Machine Language 
Editor: MLX," Appendix D. 

49152 :169, 054, 133, 001, 169, 224, 238 

49158 :141, 160, 188, 169,000,141,037 

49164 :128, 188, 170, 189, 128, 188, 235 

49170 : 024, 105, 064, 157, 129, 188, 173 

49176 : 189, 160, 188, 105, 001, 157, 056 

49182 : 161, 188, 232, 224, 024, 144, 235 

49188 1234,169,001,160,007,153,248 

49194 :199, 188, 153, 192, 188, 010, 204 

49200 :153, 207, 188, 136, 153, 192, 053 

49206 : 188, 010, 136,016,238,169,043 

49212 :003, 160, 006, 153, 216, 188, 018 

49218 :010,010, 136, 136,016, 247, 109 

49224 : 169, 254, 160, 007, 153, 224, 015 

49230 : 188, 056, 042, 136, 016, 248, 252 

49236 :169, 252, 160, 007, 153, 231, 032 

49242 : 188, 153, 239, 188, 153, 247, 234 

49248 :188, 056, 042, 056, 042, 136, 104 

49254 : 136, 016, 239, 169, 066, 141, 101 

49260 : 000 , 003 , 169 , 197 , 141 ,001 , 107 

49266 : 003 , 169 , 1 34 , 141 , 008 , 003 , 060 

49272 :169, 192, 141, 009, 003, 169, 035 

49278 : 008 , 133 , 004, 169 , 055 , 133 , 116 

49284 : 001 , 096 , 160 , 001 , 177 , 122 , 177 

49290 :201, 033, 240, 003, 076, 228, 151 

49296 :167, 165, 212, 208, 249, 032, 153 

49302 :115, 000, 165, 122, 133, 158, 075 

49308 : 165, 123, 133, 159, 162, 255, 129 

49314 : 160, 000, 165, 158, 133, 122, 132 

49320 : 165, 159, 133, 123, 232, 032, 244 

49326 : 115, 000, 041, 127, 221, 242, 152 

49332 : 192 , 240 , 245 , 201 , 046 , 240 , 064 

49338 :026, 009, 128, 221, 242, 192, 236 

49344 :240, 019, 189, 242, 192, 048, 098 

49350 : 003, 232, 208, 248,200,200,009 

49356 :224, 053, 144, 212, 162, 011, 242 

49362 :076, 066, 197, 185, 040, 193, 199 

49368 il41 , 233 , 192 , 185 , 041 , 193 , 177 

49374 :141, 234, 192, 032, 115, 000, 168 

49380 :169, 054, 133, 001, 032, 046, 151 

49386 :194, 169, 055, 133, 001, 076, 094 

49392 :174, 167, 068, 082, 065, 087, 115 

49398 :164, 080, 076, 079, 212, 080, 169 

49404 : 079 , 083 , 073 , 084 , 07 3 , 079 , 2 11 

49410 1206,076,079,067,065,084,067 

49416 I 197 , 083 , 069 , 084 , 067 , 079 , 075 

49422 : 076 , 176 , 067 , 079 ,076,176,152 
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49428 :071, 082, 065, 080, 072, 073, 207 

49434 : 067 , 211 , 070 , 073 , 076 , 204 , 215 

49440 : 081, 085, 073, 212, 084, 069, 124 

49446 : 088 , 2 12 , 1 38 , 194 , 046 , 1 94 , 142 

49452 :031 , 194, 181 , 196 , 199 , 195 ,016 

49458 : 150 , 1 96 , 081 , 193 , 242 , 197 , 085 

49464 :060, 193, 252, 198, 169, 228, 132 

49470 : 141 , 008 , 003 , 169 , 167 , 141 , 1 79 

49476 : 009 , 003 , 169 , 1 39 , 141 , 000 , 017 

49482 : 003 , 169 , 227 , 141 , 001 , 003 , 106 

49488 :096 , 032 , 042 , 197 , 208 , 039 , 182 

49494 : 138, 048 , 036 , 041 , 015 , 168 , 020 

49500 : 192, 007, 176, 032, 120, 032, 139 

49506 :000, 194, 088, 169, 027, 141, 205 

49512 :017, 208, 169, 023, 141, 024, 174 

49518 : 208, 169 , 008 , 141 , 022 , 208 , 098 

49524 : 133, 004, 169, 199, 141, 000, 250 

49530 : 221, 208, 102, 076, 061, 197, 219 

49536 :192, 009, 176, 249, 120, 169, 019 

49542 : 059 , 141 , 017 , 208 , 169 , 040 , 000 

49548 :141 , 024 , 208 , 169 , 196 , 141 ,251 

49554 : 000, 221, 169, 008, 192, 007, 231 

49560 : 208, 002, 169, 024, 133, 004, 180 

49566 : 141, 022, 208, 169, 023, 133, 086 

49572 :003, 138, 041, 016, 208, 035, 093 

49578 : 169, 127, 141, 013, 220, 169, 241 

49584 : 001 , 141 , 026 , 208 , 141 , 018 , 199 

49590 : 208, 169 , 198 , 141 , 038 , 003 , 171 

49596 :169 , 197 , 141 ,039 , 003 , 169 , 138 

49602 : 100 , 141 , 020 , 003 , 169 , 197 , 056 

49608 : 141, 021, 003, 208, 003, 032, 096 

49614 : 000 , 194 , 088 , 138 , 041 , 032 , 187 

49620 : 208 , 018 , 160 , 000 ,132,168,130 

49626 : 169, 000, 133, 170, 162, 224, 052 

49632 :032, 093, 196, 169, 147, 032, 125 

49638 : 210, 255, 169, 004, 133, 158, 135 

49644 :166, 158, 188, 251, 193, 132, 044 

49650 : 168,032,008,196, 198, 158, 234 

49656 :016,242,096,00a, 014, 006, 118 

49662 : 009 , 000 , 169 , 000 , 141 , 026 , 087 

49668 :208, 169, 129, 141, 013, 220, 116 

49674 : 169, 202, 141, 038, 003, 169, 220 

49680 : 241 , 141 , 039 , 003 , 169 , 049 , 146 

49686 : 141 , 020 , 003 , 169 , 234 , 141 , 218 

49692 :021 , 003 ,096 ,032 , 228 , 196 , 092 

49698 : 160, 002 , 185 , 167 , 002 , 153 , 191 

49704 : 251, 000, 136, 016, 247, 096, 018 

49710 :032, 031, 194, 032, 024, 197, 044 

49716 :240, 007, 230, 253, 032, 061, 107 

49722 8194,198,253,032,066,194,227 
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49728 :240, 045, 165, 253, 074, 074, 147 

49734 : 074, 170, 165, 251, 069, 253, 028 

49740 :041, 248, 069, 253, 024, 125, 068 

49746 $128,188,133,195,189,160,051 

49752 :188, 101, 252, 133, 196, 165, 099 

49758 : 251 , 041 , 007 ,032 , 024 , 197 , 134 

49764 : 240, 005, 041, 254, 013, 170, 055 

49770 : 002 , 170 , 160 , 000 , 096 , 169 , 191 

49776 :053, 120, 133, 001, 177, 195, 023 

49782 : 160 , 054 , 132 , 001 , 088 , 061 , 102 

49788 :224, 188, 164, 254, 240, 005, 175 

49794 : 029 , 192 , 188 , 160 , 000 , 145 , 076 

49800 : 195, 096, 032, 228, 196, 173, 032 

49806 : 167 , 002 , 056 , 229 , 251 , 141 , 220 

49812 : 180, 002, 173, 168, 002, 229, 134 

49818 : 252 , 141 , 181 , 002 , 173 , 169 , 048 

49824 :002 , 056 , 229 ,253,133, 107 , 172 

49830 : 160, 001, 162,000,032,024,033 

49836 :197 , 240 ,001 , 200 , 165 , 252 , 203 

49842 : 205 , 168 , 002 , 144 , 036 , 208 , 173 

49848 :007, 173, 167, 002, 197, 251, 213 

49854 : 176, 027, 160, 255, 162, 255, 201 

49860 1032 , 024 , 197 , 240 , 001 , 136 , 058 

49866 : 165 , 251 , 056 , 237 , 167 , 002 , 056 

49872 :141, 180, 002, 165, 252, 237, 161 

49878 : 168 , 002 , 141 , 181 , 002 , 132 , 072 

49884 : 111, 134, 112, 160, 001, 032, 002 

49890 :024, 197, 240, 001, 200, 173, 037 

49896 :169, 002, 197, 253, 176, 015, 020 

49902 : 152 , 073 , 255 , 024 , 105 , 001 , 080 

49908 :168 , 165 , 253 ,056 ,237 , 169 ,012 

49914 :002, 133, 107, 132, 167, 169, 192 

49920 : 000 , 141 , 182 , 002 , 133 , 163 , 109 

49926 : 174 , 180 , 002 , 172 , 181 , 002 , 205 

49932 :208, 014, 228, 107, 176, 010, 243 

49938 : 166, 107, 032, 037, 195, 133, 176 

49944 -.163,076,046,195,032,037,061 

49950 : 195 , 141 , 182 , 002 , 076 , 046 , 160 

49956 :195, 132, 110, 152, 074, 134, 065 

49962 : 109 , 138 , 106 , 096 , 169 , 000 , 148 

49968 :133, 158, 133, 159, 133, 164, 160 

49974 : 141 , 183 , 002 ,032 , 049 , 194, 143 

49980 : 165, 252, 205, 168, 002, 208, 036 

49986 :017, 165,251,205,167,002,105 

49992 :208, 010, 165, 253, 205, 169, 058 

49998 : 002 , 208 , 003 , 076 , 034 , 194 , 083 

50004 : 165 , 163 , 024 , 109 , 180 , 002 , 215 

50010 : 133, 163, 165, 164, 109, 181, 237 

50016 :002, 133, 164, 197, 110, 240, 174 

50022 :004, 144, 033, 176, 006, 165, 118 
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50028 : 163, 197, 109, 144, 025, 165, 143 
50034 : 163, 229, 109, 133, 163, 165, 052 
50040 : 164, 229, 110, 133, 164, 165, 061 
50046 : 251 , 024 , 101 , 111 , 133 , 251 . 229 
50052 : 165, 252, 101, 112, 133, 252, 123 
50058 : 173 , 182 , 002 , 024 , 101 , 107 , 215 
50064 : 141 , 182 , 002 , 173 , 183 ,002 , 059 
50070 : 105 , 000 , 141 , 183 , 002 , 1 97 , 010 
50076 : 110, 240, 004, 144, 032, 208, 126 
50082 : 007 , 173 , 182 , 002 , 197 , 109 , 064 
50088 :144, 023, 173, 182, 002, 229, 153 
50094 : 109 , 141 , 182 , 002 , 173 , 183 , 1 96 
50100 : 002 , 229 , 110 , 141 , 183 ,002 , 079 
50106 : 165 , 253 , 024 , 101 , 167 , 133 , 005 
50112 :253, 076, 057, 195, 076, 061, 142 
50118 ! 197 , 032 , 042 , 197 , 208 , 248 , 098 
50124 : 224, 005, 176, 244, 138, 072, 039 
50130 : 032, 035, 197, 138, 041, 015, 156 
50136 :010, 010, 133, 168, 032, 035, 092 
50142 : 197, 138,041 ,015 ,074, 170,089 
50148 : 240 , 003 , 074 , 005 , 168 , 133 , 083 
50154 : 168, 074, 168, 185, 118, 196, 119 
50160 : 176 , 004 , 074 , 074 , 074 , 074 , 204 
50166 : 041 , 015 , 164 , 168 , 192 , 003 , 061 
50172 :208, 006, 224, 007, 208, 002, 139 
50178 .-169,001,133,168,104,170,235 
50184 :224, 003, 240, 036, 160, 240, 143 
50190 : 165 , 168 ,032 ,024 , 197 , 208 , 040 
50196 : 028 , 224 , 000 , 240 ,023,202,225 
50202 : 208 , 005 , 032 , 082 , 1 96 , 240 , 021 
50208 :031, 224, 001, 208, 005, 032, 021 
50214 :045, 196, 240,032, 202, 202, 187 
50220 : 202, 157, 032, 208, 096, 202, 173 
50226 :048, 012, 202, 048, 019, 240, 107 
50232 :025 , 202 ,032 , 045 , 196 , 202 , 246 
50238 : 240, 237, 160,015, 165, 168,023 
50244 :010, 010, 010, 010, 133, 168, 153 
50250 : 169, 204, 133, 170, 162, 200, 088 
50256 :208, 011, 162, 216, 169, 220, 042 
50262 : 133, 170, 165, 168, 141 , 134, 229 
50268 :002, 132, 006, 160, 000, 132, 012 
50274 : 195, 134,196,177,195,037,008 
50280 : 006 , 005 , 168 , 145 , 195 , 200 , 055 
50286 : 208, 245, 232, 228, 170, 208, 121 
50292 :238, 096, 011, 207, 199, 113, 212 
50298 : 040, 143, 146, 040, 153, 170, 046 
50304 : 102, 068, 102, 068, 102, 238, 040 
50310 : 102, 238, 100, 227, 110, 227, 114 
50316 :110, 093, 085, 093, 085, 215, 053 
50322 : 136,093, 136, 170,032,042, 243 
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50328 :197, 138, 041, 003, 032, 024, 075 
50334 : 197 , 208 , 005 , 041 , 001 , 133 , 231 
50340 : 254 , 096 , 133 , 254 , 201 , 000 , 078 
50346 : 208 , 002 , 169 , 001 , 010 ,010 , 058 
50352 :010, 141, 170, 002, 096, 032, 115 
50358 : 031, 194, 032, 234, 198, 032, 135 
50364 : 170, 198, 072, 169, 055, 133, 217 
50370 : 001, 032, 115, 000, 032, 139, 001 
50376 :176, 032, 133,177,104,168,222 
50382 : 169,000,032, 145, 179, 165, 128 
50388 :098, 041, 127, 133, 098, 160, 101 
50394 : 004 , 185 , 097 , 000 , 1 45 , 07 1 , 208 
50400 : 136 , 016 , 248 , 096 , 032 , 042 , 026 
50406 : 197, 032, 012, 197, 152, 240, 036 
50412 : 008 , 192 , 002 , 176 ,076 , 224 , 146 
50418 : 064, 176 , 072 , 142 , 167 , 002 , 097 
50424 : 140, 168, 002, 032, 035, 197, 054 
50430 : 032, 012, 197, 152, 208, 057, 144 
50436 : 224 , 200 , 176 , 053 , 142 , 169 , 200 
50442 : 002 , 096 , 032 , 24 , 1 97 , 240 , 089 
50448 :006, 138, 010, 170, 152, 042, 022 
50454 : 168 , 096 , 133 , 170 , 165 , 004 , 246 
50460 : 041, 016, 008, 165, 170, 040, 212 
50466 : 096 , 169 , 055 , 133 , 001 , 032 , 008 
50472 :253, 174, 169, 055, 133, 001, 057 
50478 : 032 , 158, 173 , 032 , 247 , 183 , 103 
50484 : 169 , 054 , 133 , 001 , 166 , 020 , 083 
50490 ! 164, 021 , 096 , 162 , 246 , 154 , 133 
50496 : 162, 014, 224, 128, 176, 027, 027 
50502 1134,163,072,169,055,133,028 
50508 :001, 174, 021, 003, 224, 197, 184 
50514 : 240, 010, 169, 032, 044, 017, 082 
50520 :208 , 240 , 003 , 032 , 096 , 19 3 , 092 
50526 : 104, 166, 163, 076, 139, 227, 201 
50532 :173, 025, 208, 141, 025, 208, 112 
50538 : 169, 027, 141, 017, 208, 169, 069 
50544 : 199, 141, 000, 221, 169, 023, 097 
50550 : 141, 024, 208, 169, 008, 141, 041 
50556 S022 , 208 , 162 , 000 , 173 , 018 , 195 
50562 : 208 , 048 , 022 , 162 , 218 , 169 ,189 
50568 :196 , 141 , 000 , 221 , 169 , 059 ,154 
50574 : 141 , 017 , 208 , 169 , 040, 141 , 090 
50580 : 024 , 208 , 169 , 008 , 141,022 , 208 
50586 : 208, 142, 018, 208, 173,013,148 
50592 :220, 041, 001, 240, 003, 076, 229 
50598 : 049, 234, 056, 032, 240, 255, 008 
50604 : 224, 021, 176, 006, 162, 021, 014 
50610 :024, 032, 240, 255, 165, 003, 129 
50616 :141, 117, 197, 165, 004, 141, 181 
50622 : 151 , 197 , 104 , 168 , 104 , 170 , 060 
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50628 :104, 064, 072, 041, 127, 201, 037 

50634 : 032 , 144 , 004 , 104 , 076 , 202 , 252 

50640 : 241 , 104 , 032 , 202 , 241 , 008 , 012 

50646 : 133, 170, 134, 158, 132, 159, 076 

50652 :056, 032, 240, 255, 224, 021, 024 

50658 : 176, 006, 162, 021, 024, 032, 135 

50664 : 240, 255, 166, 158, 164, 159, 094 

50670 : 165, 170 1040, 096, 032, 031, 004 

50676 :194, 032, 234, 198, 169, 000, 047 

50682 : 141 , 174 , 002 , 169 , 000 , 141 , 109 

50688 :176 , 002 , 141 , 17 5 ,002 , 165 , 149 

50694 : 252 , 208 , 004, 165 , 251 , 240 , 102 

50700 1033,165,251,056,237,177,163 

50706 : 002, 133, 251, 165, 252, 233, 030 

50712 :000, 133, 252, 032, 170, 198, 041 

50718 : 240 , 2 29 , 165 , 251 , 024 , 109 ,024 

50724 : 177, 002, 133, 251, 165, 252, 248 

50730 : 105, 000, 133, 252, 230, 253, 247 

50736 :032, 170, 198, 208, 011, 173, 072 

50742 : 176, 002, 208, 011, 032, 212, 183 

50748 : 198 , 169 , 001 , 044 , 169 ,000 , 129 

50754 : 141 , 176 , 002 , 198 , 253 , 198, 010 

50760 : 253, 032, 170, 198, 208, 011, 176 

50766 : 173, 175, 002, 208, 011, 032, 167 

50772 :212, 198, 169, 001, 044, 169, 109 

50778 :000, 141, 175, 002, 230, 253, 123 

50784 : 032, 061, 194, 165, 251, 024, 055 

50790 1109,177,002,133,251,165,171 

50796 :252, 105, 000, 133, 252, 165, 247 

50802 : 197 , 201 , 063 , 240 , 048 , 165 , 004 

50808 :252, 240, 006, 165, 251, 201, 211 

50814 : 064, 176, 005, 032, 170, 198, 003 

50820 : 240, 168, 172, 174, 002, 240, 104 

50826 :028, 136, 185, 000, 189, 133, 041 

50832 :253, 185, 000, 190, 133, 252, 133 

50838 : 185, 000, 191, 133,251,140,026 

50844 : 174 , 002 , 165 , 253 , 201 , 200 ,127 

50850 : 176, 226, 076, 253, 197, 076, 142 

50856 :034, 194, 032, 066, 194, 134, 054 

50862 : 170, 189,224,188,073,255,249 

50868 :162 , 053 , 120 , 134 ,001 , 049 , 187 

50874 : 195 , 230 , 001 , 088 , 072 , 165 , 169 

50880 : 170, 041, 007, 170, 104, 236, 152 

50886 : 178 , 002 , 176 , 007 , 074 , 232 , 099 

50892 : 236, 178, 002, 144, 249, 201, 190 

50898 : 000 , 096 , 172 , 174 , 002 ,165,051 

50904 : 251, 153, 000, 191, 165, 252, 204 

50910 : 153, 000, 190, 165, 253, 153, 112 

50916 :000 , 189 , 238 , 174 , 002 , 096 , 159 

50922 : 162 , 001 , 160 , 007 , 032 , 024 , 108 
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50928 :197, 240, 002, 232, 136, 142, 165 
50934 : 177 , 002 , 140 , 178 , 002 , 096 , 073 
50940 : 032, 042, 197, 208, 015, 224, 202 
50946 :040, 176, 011, 134, 163, 032, 046 
50952 :035, 197, 208, 004, 224, 025, 189 
50958 : 144, 005, 162, 014, 076, 066, 225 
50964 : 197, 169, 000, 133, 196, 165, 112 
50970 : 163, 010, 010, 010, 038, 196, 197 
50976 ;024, 125, 128, 188, 133, 195, 057 
50982 : 165 , 196 , 125 , 160 , 188 , 133 , 237 
50988 .-196,169,055, 133, 001, 032, 118 
50994 : 115, 000, 032, 158, 173, 165, 181 
51000 : 013 ,048 ,025 ,032 , 247 , 183 , 092 
51006 : 165 ,020 , 041 , 001 , 008, 173 , 214 
51012 : 160, 199, 040, 208, 003, 041, 207 
51018 1 247 , 044 , 009 , 008 , 141 , 160 , 17 1 
51024 : 199, 076, 049, 199, 165, 098, 098 
51030 : 208, 015, 032, 133, 177, 160, 043 
51036 :002, 177, 071, 153, 097, 000, 080 
51042 : 136, 016, 248, 048, 011, 165, 210 
51048 :023, 133, 022, 165, 023, 056, 014 
51054 : 233, 003, 133, 023, 165, 097, 252 
51060 : 240 , 089 , 169 , 000 , 141 , 180 , 167 
51066 : 002 , 173 , 160 , 199 , 041 , 251 , 180 
51072 :141 , 160 , 199 , 169 ,000 , 133 , 162 
51078 : 159 , 172 , 180 , 002 , 177 , 098 , 154 
51084 :032, 208, 199, 144, 052, 010, 017 
51090 : 038, 159, 010, 038, 159, 010, 048 
51096 :038, 159, 133, 158, 165, 159, 196 
51102 : 024, 105, 216, 133, 159, 160, 187 
51108 :007 , 162 ,055 , 169 ,051 , 120 ,216 
51H4 : 133, 001, 177, 158, 145, 195, 211 
51120 :136, 016, 249, 134, 001, 088, 032 
51126 : 165 ,195 ,024 , 105 , 008 , 133 , 044 
51132 :195, 144, 006, 230, 196, 165, 100 
51138 : 196, 240, 010, 238, 180, 002, 036 
51144 : 173, 180, 002, 197, 097, 208, 033 
51150 : 180, 096, 170,201,018,208,055 
51156 : 008, 173, 160, 199, 009, 004, 253 
51162 : 141 , 160 , 199 , 201 , 146 , 208, 249 
51168 :008, 173, 160, 199, 041, 251, 032 
51174 : 141, 160, 199, 138, 041, 127, 012 
51180 :201 ,032 , 144,010 , 138 , 201 , 194 
51186 : 128, 041, 191, 144, 002, 233, 213 
51192 :064, 056, 096, 013, 013, 013, 247 



239 



4 Sound and Graphics 



Program 2. 64 Boot 

For mistake-proof program entry, be sure to use 'The Automatic Proofreader," Appendix C, 
when you type in the next two programs. 

100 IPA=1THENSYS49152 :NEW : rem 38 

110 PRINT:PRINT"{CLR}{D0WN1{15 RIGHT164 PAINTBOX" 

:rero 80 

130 PRINT"{D0WN1 {YEL} lGRAPHICSg7i SELECTS GRAPHIC 
S 0,7,8" :rem 123 

140 PRINT" {YEL} 1 color! 71 SELECTS COLOR REGISTER" 

:rem 53 

150 PRINT" {YEL} lSETCOLORg73 SETS THE REGISTER'S C 

OLOR" :rem 169 

160 PRINT" {YEL}lP0SITI0Ni7i PLACES THE GRAPHICS C 

URSOR" :reni 254 

170 PRINT" {YEL} lPLOTg73 PLOTS THE POINT SET BY CO 

LOR" :rem 4 

180 PRINT" {YEL} lDRAWT0g7i DRAWS TO THE SPECIFIED 

{SPACE} POINT" :rem 175 

190 PRINT" {YEL} 1 LOCATE! 7 3 PUTS THE POINT IN THE V 

ARIABLE" :rem 241 

195 PRINT" {YEL} lTEXTi7i PUTS TEXT ON THE SCREEN" 

:rem 221 

200 PRINT" {YEL} IQUITi7§ TURNS OFF 64 PAINTBOX" 

:reni 69 

210 PRINT"{DOWN} {RIGHT}ALL COMMANDS CAN BE ABBREVI 
ATED WITH": PRINT" A PERIOD (.)" :rem 249 

220 PRINT" {DOWN} {RIGHT}L0ADING 64 PAINTBOX PROM 49 
152 TO 51200" :rem 52 

230 A=1:L0AD"64 PAINTBOX" , 8, 1 :rem 114 

Program 3. 64 Paintbox Demonstrations 
100 : :rem 203 

110 REM DEMOS FOR 64 PAINTBOX I rem 164 

130 : :rem 206 

140 GOSUB700 :rem 172 

150 DATA "{WHT} SIMPLE FIGURE NUMBER 1" :rem 127 
160 DATA "HIT ANY KEY AFTER THIS DESIGN, AND ALL" 

:rem 231 

170 DATA "FOLLOWING DESIGNS, ARE COMPLETE" : rem 17 
180 DATA "TO GO ON TO THE NEXT ONE.", : rem 204 

190 FORI=0TO270STEP5: IP.I,100+SIN(I/50)*100: 1 .319- 
I , 100+COS ( 1/25 )*50 :NEXT :rem 98 
200 GETA$:IFA$=""THEN200 : rem 71 
210 GOSUB700 :rem 170 
220 DATA "THIS FIGURE IS DRAWN IN HI-RES THEN" 

:rem 114 

230 DATA "REDISPLAYED IN MULTICOLOR FOR AN": rem 64 
240 DATA "INTERESTING EFFECT", :rem 25 
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250 FORI=0TO309STEP2: IP.I,100+SIN(I/50)*100: 1 .1+10 
,100+SIN(I/50)*50:NEXT : rem 36 

260 GOSUB640:GOSUB700 s rem 3 

270 DATA "HI-RES/MULTICOLOR FIGURE NUMBER 2", 

:rem 193 

280 FORI=0TO309STEP2: 1P.I,100+COS(I/50)*100: 1 .1+10 

,100+SIN(I/50)*50:NEXT :rem 34 

290 GOSUB640:GOSUB700 :rem 6 

300 DATA "SIMPLE FIGURE NUMBER 2", : rem 164 

310 FORI=0TO319STEP2: 1P.I,100+SIN(I/50)*100: 1 .319- 

I,100+COS(I/50)*50:NEXT :rem 91 

330 GETA$:IFA$=""THEN330 srem 79 

340 GOSUB700 :rem 174 

350 DATA "SIMPLE FIGURE NUMBER 3", :rem 170 

390 FORI=0TO310STEP5: IP.I,100+SIN(I/50)*100: 1 .319- 

I,100+SIN(I/50)*50:NEXT :rem 98 

420 GETA$:IFA$=""THEN420 :rem 79 

430 GOSUB 700 srem 174 

440 DATA "THE NEXT IMAGE IS A CIRCLE", :rem 52 

460 FORI =0TO2*t^-t^/l00STEPt./100: IP. 160, 100s 1 .160+CO 

S(I)*100,100-SIN(I)*80 :rem 206 

470 NEXT:C=0:I=2 :rem 182 

480 i S . 1 , C , I s 1=1+1 s IFI=16THENI=2 : C=C+1 1 IFC=16THENC 

=0 :rem 61 

490 GETA$:IFA$=""THEN480 : rem 92 

500 DATA "THIS IS A MULTICOLOR IMAGE" : rem 117 

510 DATA "CREATED WITH LINE AND FILL ROUTINES", 

srem 239 

520 IG.7+16S lC.lsN=32$FORI=0TO2*t_STEPt./N srem 170 
530 iC.lt IP. 80, 50: 1 .80+COS( I )*40, 50-SIN( I ) *32 sNEXT 

:rem 160 

540 N=16 : 1 C . 2 :FORI=0TO2*t_STEP2/NsX=80+COS ( I) * 50 :Y= 
50-SIN(I)*40 srem 250 

550 lP.X,Ys 1 .80+COS(I+t./N)*50,50-SIN(I+_t/N)*40sNEX 
T srem 215 

560 IC. 3sIP.0,0st. 159, 0sl. 159, 99:1. 0,99sl. 0,0 

srem 123 

590 GETA$:IFA$=""THEN590 srem 95 

620 lG.7s 1G.0SEND srem 118 

630 : srem 211 

640 GETA$sIFA$=""THEN640 srem 87 

650 1G.7+32+16S lS.0,2,8s lS.l,5,8s IS.2,0,14 srem 37 
660 GETASsIFA$=""THEN660 srem 91 

670 GOTO750 srem 114 

690 s :rem 217 

700 PRINT"{CLR}{DOWN}"siG.0sK=0 srem 254 

710 READN$sIFN$=""THEN730 srem 171 
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720 PRINTTAB ( 2 0-LEN ( N$ ) / 2 ) N$ " { DOWN } " : K=K+1 : GOTO 710 

trem 27 

730 PRINTTAB (17)" §6 @1 PRINTTAB ( 17 )" {RVS} WAIT 

{UP}" :rem 70 

740 PORI=1TO350*K:GETA$:IFA$=""THENNEXT irem 133 
750 lG.8+16: IS.2,0,01 IS.1,RND(1)*15,10: IC.l rRETURN 

:rem 149 



242 



n 
n 

^ Three Handy 

^ Graphics Utilities for 

n the Commodore 64 

Colorfill, Underline, 
and Realtime Clock 

Christopher J. Newman 

These three utilities are short, yet you'll find many 
uses for them in your own programs. Change 
screen color with a single SYS, convert the cursor 
to an underline instead of a blinking square, and 
display a realtime clock on the screen with these 
routines. Best of all, even though two are machine 
language, they're placed into memory by a 
BASIC loader, so you don't need to know any- 
thing about ML to use them. 



Colorfill 

Program 1 fills color RAM with a single color. It has several 
_ applications. For example, when it's used With a program that 
/ j POKEs characters to the screen, the color POKE is no longer 

necessary. Thus programming space can be saved if you're us- 
_ ing numerous screen POKEs. This feature is also useful when 
rj converting PET programs without the emulator: You no longer 

need to insert a color POKE for every screen POKE. 

Using "Colorfill," you can change the color of all the 
) \ characters on the screen instantly with one SYS command. In 

the program listing, line 40 POKEs random colors into location 

I 838 (SL+10). If you want just one color, replace line 40 with 

rj something like: 

40 POKE SL+10, 1 :SY^SL 
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and all of color RAM fills with white. Any text you see on the 

screen instantly turns white. Of course, you can change the [ j 

value POKEd into SL+10 to see other colors. 

The machine language program can be relocated by 

changing the value of SL in line 30 to a new starting location. | ■ 

The machine language portion takes 25 bytes. 

Underline { | 

Program 2 replaces the normal blinking square cursor with an 
underline, for those who prefer this kind of cursor. All the re- 
verse video characters are changed to underlined, normal 
characters. 

It's possible to switch between the standard Commodore 
character set and the underline set. Once the program has 
been run, the reverse-video characters can be accessed with 
POKE 53272,21. You can switch back to underline mode with 
POKE 53272,31. 

The underlined character set is stored in memory loca- 
tions 14336-16383. To relocate the character set to the bottom 
of memory, first run this one-line program: 

10 POKE 44, 16: POKE 4096 , :CLR:NEW 

Then load the underline program, LIST it, delete the *7 
characters in line 5, and change POKE 53272,31 in line 10 to 
POKE 53272,19. 

Pressing the RUN/STOP-RESTORE keys will disable the 
underline cursor function. To reenable it, you'll have to rerun 
the program. 

Realtime Clock 

Program 3 is a modification of the idea first demonstrated in 
the article "Realtime Clock On Your PET Screen," which ap- | j 
peared in the January 1982 issue of COMPUTE! magazine. The ' — ' 
clock will appear in white, showing the time in tenths of sec- 
onds through hours. The color can be changed by changing i > 
the two items of data in the last two DATA statements with ' — * 
the value 1 (the color code for white) to your desired color 
code. ^ * 
if you accidentally hit RUN/STOP-RESTORE, the dock 1— ^ 
disappears. You can put it back on the screen by typing 

POKE 788,74:POKE 789,3 [J 
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However, it will have lost time. 

The program will not work with the tape cassette, as it 
occupies the cassette buffer. When you access the disk drive, 
I—, the clock will briefly stop. The pause lasts only a few tenths of 
(la second. 

^ Program 1. ColorM 

J \^ For mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C, 

as you enter the following three programs. 

10 DATA169, 216, 133, 114, 169, 0,133, 113, 168, 169, 14, 14 
5,113,200,208,251,230,114 :rera 139 

20 DATA165,114,201,220,208,241,96, :rem 169 

30 SL=828 : RESTORE :FORI=SLTOSL+24 : READA:POKEI , A:NEX 
T :rem 135 

40 POKESL+10,RND(1)*16:SYSSL:GOTO40 :rem 144 

Program 2. Underline 

5 Q=2048*7:R=Q+1024:S=53248 :rem 206 

6 FORI=0TO255 : POKE1024+I , I :POKE55296+I , 14 :NEXT 

:rem 29 

10 POKE53272,31 :POKE56334, PEEK( 56334) AND254 : POKEl , 
PEEK(1)AND251 : rem 126 

20 FORI=0TO1023:POKEQ+I,PEEK(S+I) :POKER+I ,PEEK(S+I 
) :NEXT: POKEl, PEEK(1)0R4 :rem82 

30 POKE56334,PEEK( 56334 )0R1 : rem 16 

40 FORI=7TO1023STEP8:POKER+I,255:NEXT srem 85 

Program 3. Realtime Clock 

10 FORA=1TO108 :rem 51 

20 READS :rem 192 

30 POKE825+A,B : rem 11 

40 NEXT :rem 163 

100 PRINT"{CLR} {6 SPACES iHHMMSS" :rem 197 

110 INPUT "TIME ";A$ : rem 53 

120 TI$=A$ :rem 246 

130 F0RA=1T06 :rem 3 

140 D=VAL(MID$(A$,A,1) ) :rem 200 

150 POKE832+A,D : rem 62 

160 NEXT :rem 214 

200 POKE788,74:POKE789,3 : rem 111 

250 NEW :rem 129 
1000 DATA10, 10, 6, 10, 6, 10, 10, 0,0, 0,0, 0,0, 0,87, 90, 16 

5,162 irem 117 
1003 DATA105 , 5 , 141 , 73 , 3 , 169 , 86 , 141 , 20 , 3 , 165 , 162 , 14 

1,72,3,205,73,3,48 :rem 52 
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4 Sound and Graphics 



1006 DATA38 , 105 , 5 , 237 ,73,3, 109 , 72 , 3 , 141 , 73 , 3 , 238 , 7 

1,3,162,7,189 :rem 79 

1009 DATA64, 3, 221, 57, 3, 48, 14, 169, 0,157, 64, 3, 202, 24 

0,6,254,64,3 :reni 20 

1012 DATA76 , 1 12 , 3 , 162 , 7 , 189 , 64 , 3 , 105 , 48 , 1 57 , 31 , 4 , 1 

69,1,157,31,216,202,208,240 :reni 247 

1015 DATA169 , 58 , 141 , 31 , 4 , 169 , 1 , 141 , 31 , 216 , 76 , 49 , 23 

4,0,0,0,0 :rem 115 
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Programming 
Without 
the Keyboard 

Joystick Enhanced 
Programming 

George Leotti 

Using a computer's keyboard can be difficult, 
even impossible for some. Physically handicapped 
people who want to program on a computer may 
not be able to use the keyboard. But with "Joystick 
Enhanced Programming" QEP), COMPUTE! 
Publications' s first program dedicated to handi' 
capped computer users, the joystick can completely 
replace the keyboard. 

This program isn't only for the handicapped, 
however. Young children who are not comfortable 
with using the keyboard may find using the joy- 
stick easier and less intimidating. 



Being physically disabled myself, I know what it's like to be 
denied access to something I want or need. So when my 
friend Marc said he couldn't type for longer than 15 minutes 
before fatigue became a problem, "Joystick Enhanced 
Programming" (JEP) came to mind. 

Marc has MD (muscular dystrophy), which causes his 
rapid fatigue. I believe JEP can be useful to other people who 
thought they couldn't use a computer, because of the key- 
board limitations or physical disabilities. 

I dedicate JEP to Marc Goldberg. 

What is JEP? To put it simply, JEP is a machine language 
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program that allows you to program in BASIC using a joystick 
plugged into port 2. 

Only Once at the Keyboard 

Of course, to enter JEP, someone will have to type it in using 
the keyboard. That may sound like a Catch-22 (you want to 
use something besides the keyboard, but you have to use the 
keyboard to be able to do that), but there's no way around it. 

To make it easier to type in JEP, we've provided "The 
Machine Language Editor: MLX." Make sure you read Appen- 
dix D and have a copy of MLX on tape or disk before you be- 
gin entering JEP. (Again, someone will have to enter MLX 
using the keyboard, since you have to have it before you start 
typing in JEP.) 

After you've loaded and run MLX, it will ask for two ad- 
dresses. Those are: 

Starting address: 49152 
Ending address: 51413 

Type in Program 1, JEP. Then, using MLX's Save option, save 
the program to tape or disk. To load JEP, you have to use the 
following format: 

UJAD" filename", S,l (for disk) 
UOAD" filename", 1,1 (for tape) 

Once JEP is loaded, type SYS 49152 and then NEW. The pro- 
gram is instantly available for your use. 

Automatic Loading 

Another way to load JEP would be to create an autoboot pro- 
gram for it. This is simple if you use the program in 
"Autoload," another article in this book. After you've entered 
and saved JEP, just follow the directions in Autoload and you 
can easily create a routine which automatically loads JEP. The 
boot program will even do the SYS for you. 

The Menu 

When JEP is active, the top ten lines of your screen are re- 
served for a menu from which you make selections to build a 
BASIC program. 

There are two cursors on the screen when the program is 
active — the normal flashing cvirsor of the BASIC ecfetor and a 
nonflashing menu cursor. To prevent confusion and keep a 
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clean menu display, neither cursor is permitted to cross screen 
line ten/ Therefore, if you try to home the editor cursor, it will 
jump to the first space on line eleven. 

To make a selection, move the menu cursor by pushing 
the joystick in the appropriate direction until it's over the de- 
sired character, keyword, or other s)anbol; then press the fire 
button. This prints your selection at the editor cursor location. 

The menu is dynamic in that it changes in response to in- 
put from the joystick. What follows is a line-by-line break- 
down of the dynamic menu: 

ASCII codes. The top line contains the characters with 
ASCII codes from 33 to 95. This is where the dynamic part 
comes in. There are 63 characters with only 40 columns to dis- 
play them. But by moving the menu cursor off the left or right 
end of this line, you'll cause every character to scroll, or move, 
one position in the opposite direction. 

An example: When you run JEP, the menu cursor is over 
ASCII character 33 (the exclamation point), in the upper left- 
hand corner of the screen. By pushing the joystick left once, all 
the characters on the top line will move one position to the 
right. The character under the menu cursor is now ASCII 95 
(left arrow). If you push the stick left (or right if you're on that 
end of the line), you'll get a continuous scroll. 

BASIC keywords. The second line contains every BASIC 
keyword in the 64's vocabulary (listed alphabetically), includ- 
ing the left parenthesis on words that need it: ASC(, SQR(, 
LEFTS (, and so on. The number sign is included in keywords 
that need it— PRINT#, GET#, and INPUT*. The reserved 
variables ST, TI, and TI$ are represented with their full spell- 
ing (TIME$, for example). 

The second line scrolls just like the top line. Since there 
are more characters on this line (because of the number of 
BASIC keywords), it can take some time to scroll through the 
entire list. To speed things up, once the scroll begins, hold 
down the fire button. The words will zip by, but you can still 
pick out some letters to give you an idea of where you are. 

If you release the stick before the button, during a speed 
scroll, you may get something printed that you didn't want. 
That brings us to the next line. 

Special keys. The third line is for the special keys on the 
64's keyboard. The keys are: RETURN; SPACE; cursor con- 
trols, including up, down, left, right; CLR; HOME; INST; and 
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DEL. These will work exactly like their keyboard equivaleitts, 
with the exception that you can't move the editor cursor above 
the eleventh line. 

Function keys. The fourth line contains the function 
keys on the right side of the 64 keyboard. On this same line 
you'll find the letters BBC. The first B is for border, the second 
for background, and the C for character. By putting the menu 
cursor on any of these letters and pushing the fire button, you 
may change the color combinations of your entire screen. 

Also on line four are the abbreviations COMDRE and 
CTRL. These represent the Commodore and control keys. By 
selecting either COMDRE or CTRL, then moving the menu 
cursor to the top line and selecting a character, it will be 
printed as if you'd pressed the Commodore or control key 
first. Use these for one keystroke only. 

SHIFT and AUTO. Line five displays SHIFT, LOCK, 
COMDRE, CTRL, AUTO, and finally OFF. SHIFT works like 
COMDRE and CTRL on line four except that a shifted charac- 
ter is printed. 

LOCK, COMDRE, and CTRL, when selected from this 
line, lock in the SHIFT, Commodore, and control keys respec- 
tively. When you select one of these words (LOCK, for in- 
stance), it will be reversed as a reminder that function is 
enabled. 

A program like JEP would be much less worthwhile with- 
out an automatic line-numbering function. AUTO gives you 
this feature. 

Move the menu cursor over the word AUTO. Press the 
fire button, then enter a line number using the characters on 
the top line. That's the last line number you will have to en- 
ter. When you terminate the line with RETURN (not to be 
confused with RETURN from subroutine) from the third menu 
line, the next line number will be automatically printed for 
you. The line numbers will increment by 10. 

AUTO may also be used as a multiline delete. If you want 
to delete a range of lines, say 150 to 300, enter the number 
150 using the top line. Then move the menu cursor over the 
word RETURN on the third line, and hold down the fire but- 
ton until line number 310 is printed. Don't RETURN again, or 
line 310 will be erased as well. Delete the number 310 using 
DEL (third line) and you're safe. 

To turn off AUTO, move the menu cursor over AUTO 
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and press the fire button. The letters will revert to normal 
characters, and the AUTO routine will be disengaged. 

The final word on line five is OFF. Don't confuse this 
v^dth turning off AUTO numbers or your computer. It will, 
when selected, disengage or turn off JEP. If OFF is selected by 
accident, you may restart JEP by typing SYS 49152, followed 
by RETURN from the keyboard. 

Turning JEP off and on will not affect your BASIC pro- 
gram. In fact, it's similar to pushing the RUN/STOP and RE- 
STORE keys. 

You may use the RUN/STOP and RESTORE keys to turn 
off JEP. However, you will have to save the BASIC program 
you were working on, reload JEP, and type SYS 49152:NEW if 
you want to use it again. The better way is to use OFF to keep 
JEP ready to run again. 

System Defaults 

I have the speed of the menu cursor set to where it's comfort- 
able for Marc. Things may move too fast or too slowly for you, 
but there are ways to speed things up or slow them down. 

Once you have JEP entered, save it to tape or disk. After 
you have it saved, run it by typing SYS 49152. Now you may 
maneuver the menu cursor with your joystick and select dif- 
ferent things from the menu to get a feel for the way JEP re- 
sponds. Here are three locations that you can POKE to change 
speeds: 

POKE 49292,2: This is a general location but can be used 
to change left/right speeds. 

POKE 49531,6: This controls up/down speed. 
POKE 49603,4: This is for button response. 

The numbers POKEd into these locations are the present 
settings. The lower the number, the faster the response; the 
higher the number, the slower the response. Note: Since these 
locations count down to 0, 1 is the fastest setting and is the 
slowest. 

Location 49292 will slow down or speed up all responses. 
Set this first to a comfortable speed for left/right movement. 
Then set the other locations. 

When you've got everything at a comfortable speed, turn 
JEP OFF and save it by entering SAVE"filename",8,l for disk 
or SAVE"filename",l,l for tape. Now you won't have to set 
things up each time. 
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To change the size of the increment of the AUTO line 
numbers, you can POKE a different increment into location 
50415, which now contains 10. Numbers from 1 to 255 are 
allowed. 

During the process of writing a program, it's often de- 
sirable to run the program to look for errors. JEP will remain 
active when a BASIC program is run, but the menu will not be 
displayed. Even after the test run, the menu won't be dis- 
played unless a scroll occurred upon exiting your program. 
This is to allow you to read whatever may be printed on the 
screen. 

There are several ways to get the menu back after a 
BASIC program runs. First, if you used the menu to select 
RUN, then RETURN, hold down the fire button until the 
menu appears. You could also use the keyboard RETURN key, 
cursor down, clear screen, and even cursor up; or the DEL key 
to restore the menu. 

If you would like to keep the menu on screen during a 
RUN to use for input, instead of the keyboard, you must use 
the following POKEs exactly: 

POKE 56333,127:POKE 49275,234:POKE 49276,234:POKE 56333,129 

If you make these changes in direct mode (no line num- 
bers), enter all four POKEs on the same line. Why? Because 
the first POKE disables interrupts, which kUls the keyboard 
until the last POKE. The two POKEs in the middle put the 
machine language instruction NOP (No OPeration) in place of 
a branch instruction (BEQ) and its offset. 

To return JEP to normal, enter the following on one line: 

POKE 56333,127:POKE 49275,240:POKE 49276,89:POKE 56333,129 
Automatic Proofreader for JEP 

One of the most useful programs from COMPUTE! Publica- 
tions, "The Automatic Proofreader," virtually insures error- 
free programs when you type them in. All the Commodore 64 
programs published in COMPUTE! magazine, COMPUTEl's Ga- 
zette, and COMPUTE! books use the Proofreader to help you 
type those programs in. 

You can use the Proofreader, or at least a variation of it, 
when you use JEP. "JEProof," this modified version of the 
Proofreader, is included here as Program 2. Just like Program 
1, it's in MLX format. To enter it, make sure you use the MLX 
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program from Appendix D. You need to provide two ad- 
dresses, which are: 

Starting address: 51500 
Ending address: 51667 

Type in JEProof and save it to tape or disk. 

If you want to use JEProof with JEF, this is the process 
you need to follow. 

• LOAD"JEP",8,l and press RETURN 

• Type NEW 

• LOAD"JEPROOF",8,l and press RETURN 

• Type NEW 

• SYS 49152 and press RETURN 

Now you'll see the usual JEP menu at the top of the screen. 
JEP is active and you can use the joystick to enter: 

• SYS 51400 and press (or enter) RETURN 

JEProof is enabled and ready to use. To see it at work, enter a 
simple BASIC line, such as 10 REM and then RETURN. You'll 
see a number in reverse video (in this case it should be 069) 
just to the right of the OFF in the fifth menu line. That's the 
Proofreader's checksum number. If you look at the BASIC pro- 
grams in this book, you'll see :rein xx (where xx is a number) 
at the end of each line. That's the number you should see in 
reverse video if you entered the line correctly. (For more de- 
tailed information about the Proofreader — ^JEProof works in 
much the same way — read Appendix C.) 

There's only one problem with JEProof. If you enter a line 
at the very bottom of the screen, the reverse video number 
will appear for just a brief moment, not long enough to really 
see. For this reason, when you're using JEProof, make sure not 
to enter BASIC lines on the very bottom screen line. You can get 
around this by scrolling the BASIC lines up the screen using 
the cursor down (D in menu line 3), then moving the cursor 
back up to resume typing. It's a bit of a bother, but you 
should get used to it rather quickly. 

Disadvantages of JEP 

You'll find difficulty when you try to use other machine lan- 
guage enhancements with JEP in operation. You won't be able 
to use any program, whether it's BASIC or machine language, 
which uses memory locations 49152 through 51413. 
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The DOS wedge supplied with the 1541 does work. 
Sorry, but JEP won't work with Simon's BASIC. 

One other thing to be aware of. If you use a printer at- 
tached to the user port, deactivate JEP before using it. JEP uses 
the locations that are reserved for the RS-232 I/O buffers. 

I already know this program is useful to one person. I 
hope this program will also extend your programming time, 
providing you with many hours of fun (or even frustration) 
that are part of programming. 

Program 1. Joystick Enhanced Programming (JEP) 

For easy entry of the two machine language programs which follow, be sure to use "The 
Machine Language Editor: MIX," Appendix D. 

49152 :169, 147, 032, 210, 255, 169, 214 

49158 1000,133,172,133,173,133,238 

49164 : 252, 133, 248, 133, 247, 133, 134 

49170 : 249 , 169 , 004 , 133 , 250 , 133 , 188 

49176 : 251, 141, 168, 002, 169, 006, 249 

49182 : 141 , 167 , 002 , 173 , 048 , 003 , 052 

49188 :141 , 112 , 197 , 173 , 049 ,003 , 199 

49194 : 141 , 113 , 197 , 169 , 102 , 141 ,137 

49200 :048, 003, 169, 197, 141, 049, 143 

49206 : 003 , 1 73 , 050 , 003 , 141 , 1 34 , 046 

49212 :197, 173, 051, 003, 141, 135, 248 

49218 : 197, 169, 124, 141, 050, 003, 238 

49224 :169, 197, 141, 051, 003, 173, 038 

49230 : 164, 197, 133, 253, 173, 165, 139 

49236 1197,133,254,032,198,195,069 

49242 : 120, 173,020,003,072,173,139 

49248 :021, 003, 072, 173, 168, 197, 218 

49254 : 141, 020, 003, 173, 169, 197, 037 

49260 :141, 021, 003, 104, 141, 169, 175 

49266 ; 197, 104, 141, 168, 197, 088, 241 

49272 1096,165,157,240,089,024,123 

49278 : 165 , 172 , 101 , 173 , 240 , 003 , 212 

49284 :032, 198, 195, 198, 251, 208, 190 

49290 : 059 , 169 , 002 , 133 , 251 , 160 , 144 

49296 :000, 162, 000, 173, 000, 220, 187 

49302 :074, 176, 003, 202, 144, 015, 252 

49308 .-074,176,003,232,144,009,026 

49314 : 074 , 176 , 001 , 136 , 074 , 176 , 031 

49320 :001, 200, 074, 152, 208, 011, 046 

49326 : 138 , 208 , 008 , 176 , 019 ,032 ,243 

49332 :188, 193, 076, 198, 192, 152, 155 

49338 : 072 ,032 , 096 , 196 , 104 , 168 , 086 

49344 :032, 217, 192, 032, 096, 196, 189 

49350 : 056 ,032 , 240 , 255 , 224 , 010, 247 

49356 :176, 008, 162, 010, 032, 240, 064 
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49362 : 255, 032, 198, 195, 108, 168, 142 

49368 :197 ,008 , 104, 133 ,002 , 152 ,044 

49374 : 208, 003, 076, 117, 193, 016, 067 

49380 : 005, 198, 248, 048, 010, 096, 065 

49386 : 230 , 248 , 165 , 248 , 201 , 040 , 086 

49392 :176, 067, 096, 230, 248, 165, 198 

49398 : 247, 208, 010, 198, 252, 016, 153 

49404 :073, 169, 063, 133, 252, 208, 126 

49410 : 067 , 201 , 002 , 208 , 041 , 200 , 209 

49416 :162, 001, 070, 002, 176, 002, 165 

49422 I 162 , 005 , 198 , 253 , 165 , 253 , 026 

49428 : 201 , 255 , 208 , 002 , 198, 254 ,114 

49434 : 177 , 253 , 240 , 005 , 202 , 208 , 087 

49440 : 239 ,240,010,173,166,197,033 

49446 : 133, 253, 173, 167, 197, 133, 070 

49452 $254,076,255,195,169,039,008 

49458 : 133 , 248 , 096 , 198 , 248 , 165 , 114 

49464 : 247 , 208 , 014 , 230 , 25 2 , 164 , 147 

49470 : 252 , 185 , 170 , 197 , 208 , 002 , 052 

49476 :133, 252, 076, 233, 195, 201, 134 

49482 : 002 , 208 , 035 , 162 , 001 , 070 , 040 

49488 :002, 176, 002, 162, 005 ,230,145 

49494 ! 253 , 208 , 002 , 2 30 , 254 ,177,186 

49500 : 253, 240, 005, 202, 208, 243, 219 

49506 : 240, 201, 173, 164, 197, 133, 182 

49512 :253, 173, 165, 197, 133, 254, 255 

49518 : 208, 189, 169, 000, 133, 248, 033 

49524 :096, 206, 167, 002, 208, 036, 063 

49530 : 169 , 006 , 141 , 167 , 002 , 160 ,255 

49536 :001, 138, 016, 027, 165, 247, 210 

49542 .-208,031,160,004,024,165,214 

49548 :249, 105, 080, 133, 249, 165, 097 

49554 : 250 , 105 , 000 , 133 , 250 , 230 , 090 

49560 : 247, 230, 247, 136, 208, 236, 176 

49566 : 096 , 165 , 247 , 201 , 008 , 208 , 059 

49572 :229, 160, 004, 056, 165, 249, 003 

49578 : 233 , 080 , 133 , 249 , 165 , 250 , 000 

49584 : 233, 000, 133, 250, 198, 247, 213 

49590 : 198 , 247 , 136 , 208 , 236 , 096 ,023 

49596 :206, 168, 002, 240, 001, 096, 133 

49602 : 169 , 004 , 141 , 168 , 002 , 166 , 076 

49608 :198, 208, 211, 164, 248, 165, 114 

49614 : 247 , 208 , 067 , 024 , 152 , 101 , 237 

49620 : 252, 201, 063, 144, 002, 233, 083 

49626 : 063 , 168 , 173 , 169 , 002 , 240 , 009 

49632 :010, 048, 003, 206, 169, 002, 150 

49638 : 185, 234, 197, 208, 035, 173, 238 

49644 : 170, 002, 240, 010, 048, 003, 197 

49650 : 206 , 170 , 002 , 185 , 042 , 198 , 021 

49656 :208, 020, 173. 171. 002. 240. 038 



5 Utilities 



49662 : 012 , 048 , 003 , 206 , 171 , 002 ,184 

49668 : 185 , 106 , 198 , 208 ,005 , 240 , 178 

49674 : 003 , 185 , 170 , 197 , 157 , 119 , 073 

49680 :002, 230, 198, 096, 201, 002, 233 

49686 : 208, 101 , 152 ,024 , 101 , 253 ,093 

49692 : 141, 162, 197, 165, 254, 105, 028 

49698 : 000 , 141 ,163,197, 205 , 167 , 139 

49704 : 197 , 144 ,038 , 240 ,002 , 176 , 069 

49710 : 010, 173, 162, 197, 205, 166, 191 

49716 :197, 240, 026, 144, 024, 024, 195 

49722 : 173 , 162 , 197 , 237 , 166 , 197 , 166 

49728 :133, 248, 173, 164, 197, 133, 088 

49734 : 253, 173, 165, 197, 133, 254. 221 

49740 : 032, 198, 195, 164, 248, 177, 066 

49746 : 253 , 201 , 032 , 240 , 016 , 136 , 192 

49752 :016, 247, 200, 198, 253, 165, 143 

49758 : 253 , 201 , 255 , 208 , 238 ,198 , 167 

49764 : 254 , 208 , 234 , 166 , 198 , 200 , 080 

49770 t 177, 253, 201, 032, 240, 010, 251 

49776 :157, 119, 002, 232, 236, 137, 227 

49782 : 002, 144, 240, 202, 134, 198, 014 

49788 :096, 201, 004, 208, 009, 185, 059 

49794 : 170, 198, 157, 119, 002, 230, 238 

49800 : 198 , 096 , 201 , 006 , 208 ,017 ,094 

49806 : 192 , 024 , 176 ,009 , 185 , 209 , 169 

49812 :198, 157, 119, 002, 230, 198, 028 

49818 : 096, 192, 024, 208, 016, 208, 130 

49824 :120, 174, 032, 208, 232, 224, 126 

49830 : 016 , 208 , 002 , 162 , 000 , 142 ,184 

49836 1032,208,096,192,025,208,165 

49842 1014,174,033,208,232,224,039 

49848 :016, 208, 002, 162, 000, 142, 202 

49854 : 033 , 208 , 096 , 192 , 026 , 208 ,185 

49860 : 058, 174, 134, 002, 232, 224, 252 

49866 : 016 , 208 , 002 , 162 , 000 , 142 , 220 

49872 : 1 34 , 002 , 165 , 253 , 141 , 162 , 041 

49878 :197, 165, 254, 141, 163, 197, 051 

49884 : 169, 000, 133, 253, 169, 216, 136 

49890 : 133 , 254, 138, 160 , 000 , 145 ,032 

49896 :253, 200, 208, 251, 230, 254, 092 

49902 1 165 , 254 , 201 , 220 , 208 , 240 , 246 

49908 :173, 162, 197, 133, 253, 173, 055 

49914 : 163 , 197 , 133 , 254 , 096 ,192 ,005 

49920 : 035, 176, 011, 173, 170, 002, 055 

49926 : 048 , 005 , 169 , 001 , 141 , 170 , 028 

49932 :002, 096, 173, 171, 002, 048, 248 

49938 : 250 , 169 , 001 , 141 , 171 ,002 , 240 

49944 :096, 192, 006, 176, 011, 173, 166 

49950 : 169 , 002 , 048 , 235 , 169 , 001 , 142 

49956 : 141, 169, 002, 096, 192, 011, 135 
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49962 : 176, 027, 173,169,002,073,150 

49968 :128, 141, 169, 002, 162, 004, 142 

49974 : 160, 006, 185, 058, 199, 073, 223 

49980 : 128, 153, 058, 199, 200, 202, 232 

49986 s 208, 244, 076, 198, 195, 192, 155 

49992 :018, 176, 014, 173, 170, 002, 113 

49998 : 073 , 128 , 141 , 170 , 002 , 162 ,242 

50004 :006, 160, 011, 208, 223, 192, 116 

50010 :023 , 176 , 014, 173 , 171 ,002 , 137 

50016 :073, 128, 141, 171, 002, 162, 005 

50022 :004, 160, 018, 208, 205, 192, 121 

50028 :028, 144, 019, 192, 031, 144, 154 

50034 :001 , 096 , 032 , 090 , 192 , 173 , 1 86 

50040 :152, 197, 016, 003, 032, 130, 138 

50046 : 195, 108, 046, 003, 173, 152, 035 

50052 :197, 073, 128, 141, 152, 197, 252 

50058 : 162 , 004 , 160 , 023 , 201 , 1 28 , 048 

50064 : 240 ,014 , 173 , 106 , 196 , 141 , 246 

50070 :036 , 003 , 173 , 107 , 196 , 141 ,038 

50076 :037, 003, 208, 201, 173, 036, 046 

50082 : 003 , 141 , 106 , 196 , 173 , 037 , 050 

50088 :003 , 141 , 107 , 196 , 169 , 105 , 121 

50094 : 141 , 036 , 003 , 169 , 1 96 , 141 , 092 

50100 :037, 003, 169, 000, 132, 002, 011 

50106 : 160 , 004 , 153 , 000 , 002 , 136 , 129 

50112 :016, 250, 164, 002, 208, 163, 227 

50118 : 173 , 134 , 002 , 160 , 000 , 153 , 052 

50124 :000, 216, 200, 208, 250, 153, 207 

501 30 : 000 , 217 , 200 , 192 , 144 , 208 , 147 

50136 :248, 032, 233, 195, 032, 255, 187 

50142 .-195,032,045,196,032,073,027 

50148 :196, 032, 096, 196, 096, 165, 241 

50154 : 252 , 162 , 000 , 168 , 185 , 170 , 147 

50160 : 197, 240, 250, 041, 063, 157, 164 

50166 :000 , 004 , 200 , 232 , 2 24 , 040 , 178 

50172 :208, 240, 096, 165, 253, 141, 075 

50178 :014, 196, 165, 254, 141, 015, 019 

50184 :196, 160, 000, 162, 000, 185, 199 

50190 : 255, 255, 208, 015, 168, 173, 064 

50196 :164, 197, 141, 014, 196, 173, 137 

50202 ; 165 , 197 , 141 , 015 , 196 , 208 ,180 

50208 : 236, 041, 063, 157, 080, 004, 101 

50214 : 200, 232, 2 24, 040, 208, 2 25, 143 

50220 :096, 160, 039, 185, 234, 198, 188 

50226 :041 , 063 , 153 , 160 , 004 , 185 , 144 

50232 :018, 199, 041, 063, 153, 240, 002 

50238 : 004 , 185 , 058 , 199 , 1 53 , 064 ,213 

50244 :005 , 136 , 016 , 231 ,096 , 160 , 200 

50250 S039 , 169 , 064 , 153 ,040 , 004 , 031 

50256 :153, 120, 004. 153. 200. 004. 202 
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50262 : 153, 024, 005, 153, 104, 005, 018 
50268 :136, 016, 238, 096, 164, 248, 222 
50274 : 177 , 249 , 073 , 128 , 145 , 249 , 095 
50280 :096, 032, 087, 241, 141, 159, 092 
50286 :197, 142, 160, 197, 140, 161, 083 
50292 : 197, 008, 201, 013, 208, 003, 234 
50298 : 032, 136, 196, 173, 159, 197, 247 
50304 : 174, 160, 197, 172, 161, 197, 165 
50310 : 040, 096, 160, 000, 140, 154, 212 
50316 : 197, 140, 155, 197, 185, 000, 246 
50322 : 002 , 140 , 153 , 197 , 201 , 058 , 129 
50328 :176, 077, 201, 048, 144, 073, 103 
50334 :041, 015, 170, 173, 154, 197, 140 
50340 :141, 156, 197, 173, 155, 197, 159 
50346 : 141 , 157 , 197 , 014 , 154 , 197 , 006 
50352 :046, 155, 197, 014, 154, 197, 171 
50358 1046,155,197,024,173,154,163 
50364 : 197 , 109 , 156 , 197 , 141 , 154 ,118 
50370 : 197, 173, 155, 197, 109, 157, 158 
50376 : 197, 141, 155, 197, 014, 154, 034 
50382 : 197, 046, 155, 197, 138, 024, 195 
50388 :109 , 1 54 , 197 , 141 , 1 54 , 197 , 140 
50394 z 169, 000, 109, 155, 197, 141, 221 
50400 : 155, 197, 200, 192, 005, 208, 157 
50406 : 169 , 173 , 153 , 197 , 208 , 001 , 107 
50412 :096, 024, 169, 010, 109, 154, 030 
50418 : 197 , 141 , 154 , 197 , 169 , 000 , 076 
50424 : 109, 155, 197, 141, 155, 197, 178 
50430 : 160,000,140,156,197,140,023 
50436 :157, 197, 140, 158, 197, 140, 225 
50442 1153,197,162,015,014,154,193 
50448 1197,046,155,197,120,248,211 
50454 : 1 73 , 1 56 , 197 , 109 , 1 56 , 197 , 242 
50460 1141,156,197,173,157,197,025 
50466 : 109 , 157 , 197 , 141 , 157 , 197 , 224 
50472 t 173, 158, 197, 109, 158, 197, 008 
50478 : 141 , 158 , 197 , 216 , 088 , 202 , 024 
50484 : 016 , 216 , 164 , 198 , 162 , 002 , 042 
50490 : 189 , 156 , 197 , 072 , 074 , 074 , 052 
50496 :074 ,074 , 032 , 087 , 197 , 104 , 120 
50502 : 041 , 015 , 032 , 087 , 197 , 202 , 132 
50508 :016, 236, 169, 032, 153, 119, 033 
50514 : 002 , 200 , 132 , 198 , 096 , 205 , 147 
50520 : 153, 197, 240, 009, 009, 048, 232 
50526 : 141 , 153 , 197 , 153 , 119 , 002 , 091 
50532 :200, 096, 141, 159, 197, 032, 157 
50538 1090,192,173,159,197,032,181 
50544 :255, 255, 141, 159, 197, 032, 127 
50550 : 090, 192, 173, 159, 197, 096, 001 
50556 : 141 , 159 , 197 ,032 , 090 , 192 , 167 
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50562 : 173, 159, 197, 032, 255, 255, 177 
50568 1141,159,197,032,090,192,179 
50574 : 169, 000, 133, 172, 133, 173, 154 
50580 : 173, 159, 197, 096, 000, 000, 005 
50586 : 000 , 000 , 000 , 000 , 000 , 000 , 154 
50592 : 000 , 000 , 000 , 000 , 099 , 19 9 , 202 
50598 : 211, 200, 121, 192, 033, 034, 189 
50604 .-035,036,037,038,039,040,141 
50610 : 041 , 042 , 043 , 044 , 045 , 046 , 183 
50616 :047, 048, 049, 050, 051, 052, 225 
50622 : 053 , 054 , 055 , 056 , 057 , 058 , 011 
50628 :059, 060, 061, 062, 063, 064, 053 
50634 : 065 , 066 , 067 , 068 , 069 , 070 , 095 
50640 :071, 072, 073, 074, 075, 076, 137 
50646 : 077, 078, 079, 080, 081, 082, 179 
50652 :083, 084, 085, 086, 087, 088, 221 
50658 : 089 , 090 , 091 , 092 , 093 , 094 , 007 
50664 :095, 000, 033, 034, 035, 036, 209 
50670 :037, 038, 039, 040, 041, 192, 113 
50676 :219, 060, 221, 062, 063, 048, 149 
50682 :033, 034, 035, 036, 037, 038, 207 
50688 : 039 , 040 ,041,091,093, 060 , 108 
50694 : 061 , 062 , 063 , 186 , 193 , 194 , 25 3 
50700 : 195, 196, 197, 198, 199, 200, 173 
50706 : 201 , 202 , 203 , 204 , 205 , 206 ,215 
50712 :207, 208, 209, 210, 211, 212, 001 
50718 : 213, 214, 215, 216, 217, 218, 043 
50724 :091, 169, 093, 255, 095, 000, 227 
50730 : 129 , 149 , 150, 151 , 152 , 153 , 158 
50736 : 154, 155, 041, 223, 166, 060, 079 
50742 : 220 , 062 , 063 , 048 , 129 , 149 , 213 
50748 :150, 151, 152, 153, 154, 155, 207 
50754 : 041 , 091 , 093 , 060 , 061 , 062 , 2 18 
50760 : 063, 164, 176, 191, 188, 172, 002 
50766 : 177, 187, 165, 180, 162, 181, 106 
50772 : 161, 182, 167, 170, 185, 175, 100 
50778 : 171, 178, 174, 163, 184, 190, 126 
50784 :179, 189, 183, 173, 091, 168, 055 
50790 : 093 , 255 , 095 , 000 , 144 , 005 ,182 
50796 :028, 159, 156, 030, 031, 158, 158 
50802 :018, 042, 043, 044, 045, 046, 096 
50808 .-047,146,144,005,028,159,137 
50814 .-156,030,031,158,018,027,034 
50820 :029, 060, 031, 062, 063, 000, 121 
50826 : 001 , 002 , 003 , 004 , 005 , 006 ,159 
50832 :007, 008, 009, 074, 075, 076, 137 
50838 :013, 014, 015, 016, 017, 018, 243 
50844 :019, 020, 021, 022, 023, 024, 029 
50850 :025, 026, 027, 028, 029, 030, 071 
50856 :006 ,000,013 ,013 ,013 ,013 , 226 
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50862 : 013, 013, 013, 032, 032, 032, 053 
50868 :032, 032, 032, 145, 145, 017, 071 
50874 :017 , 157 , 157 ,029 ,029 , 147 ,210 
50880 : 147, 147, 147, 019, 019, 019, 178 
50886 : 019 , 019 , 148 , 148 , 148 , 148 , 060 
50892 : 148, 020, 020, 020, 020, 133, 053 
50898 : 133, 133, 137, 137, 137, 134, 253 
50904 : 134, 134, 138, 138, 138, 135, 009 
50910 : 135, 135, 139, 139, 139, 136, 021 
50916 :136, 136, 140, 140, 140, 000, 152 
50922 : 082 , 069 , 084 , 085 , 082 , 078 , 202 
50928 :032, 083, 080, 065, 067, 069, 124 
50934 :032, 085, 032, 068, 032, 076, 059 
50940 :032, 082, 032, 067, 076, 082, 111 
50946 :032, 072, 079, 077, 069, 032, 107 
50952 :073, 078, 083, 084, 032, 068, 170 
50958 : 069 , 076 , 032 , 032 ,070 ,049 , 086 
50964 :032, 070, 050, 032, 070, 051, 069 
50970 : 032 , 070 , 052 , 032 , 070 , 053 , 079 
50976 :032, 070, 054, 032, 070, 055, 089 
50982 : 032 , 070 , 056 ,032 , 066 , 066 , 104 
50988 :067, 032, 067, 079, 077, 068, 178 
50994 : 082, 069, 032, 067, 084, 082, 210 
51000 :076, 032, 019, 008, 009, 006, 206 
51006 :020, 032, 012, 015, 003, 011, 155 
51012 :032, 003, 015, 013, 004, 018, 153 
51018 : 005, 032, 003, 020, 018, 012, 164 
51024 :032, 001, 021, 020, 015, 032, 201 
51030 :015, 006, 006, 032, 032, 032, 209 
51036 :032, 032, 032, 032, 032, 032, 028 
51042 : 000 , 032 , 065 , 066 , 083 ,040 ,128 
51048 :032, 065, 078, 068, 032, 065, 188 
51054 : 083 , 067 , 040 , 032 , 065 , 084 ,225 
51060 :078, 040, 032, 067, 072, 082, 231 
51066 : 036 , 040 , 032 , 067 , 076 , 079 ,196 
51072 1083,069,032,067,076,082,025 
51078 :032, 067, 077, 068, 032, 067, 221 
51084 :079, 078, 084, 032, 067, 079, 047 
5 1090 : 083 , 040 , 032 , 068 , 065 , 084 , 006 
51096 :065, 032, 068, 069, 070, 032, 232 
51102 : 070 , 078 , 032 , 068 , 073 , 077 , 044 
51108 :032, 069, 078, 068, 032, 069, 000 
51114 : 088, 080, 040, 032, 070, 078, 046 
51120 :032, 070, 079, 082, 032, 084, 043 
51126 :079 ,032 , 070 , 082 , 069 , 040 , 042 
51132 :032, 071, 069, 084, 032, 071, 035 
51138 : 069, 084, 035, 032, 071, 079, 052 
51144 :083, 085, 066, 032, 071, 079, 104 
51150 : 084, 079, 032, 073, 070, 032, 064 
51156 :084, 072, 069, 078, 032, 073, 108 
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51 162 : 078 , 080 , 085 , 084 , 032 , 073 , 1 38 

51168 :078, 080, 085, 084, 035, 032, 106 

51174 : 073, 078, 084, 040, 032, 076, 101 

51180 :069, 070, 084, 036, 040, 032, 055 

51186 :076, 069, 078, 040, 032, 076, 101 

51192 :069, 084, 032, 076, 073, 083, 153 

51198 : 084, 032, 076, 079, 065, 068, 146 

51204 : 032, 076, 079, 071, 040, 032, 078 

51210 : 077, 073, 068, 036, 040, 032, 080 

51216 :078, 069, 087, 032, 078, 069, 173 

51222 : 088, 084, 032, 078, 079, 084, 211 

51228 :032, 079, 078, 032, 079, 080, 152 

51234 : 069, 078, 032, 079, 082, 032, 150 

51240 :080, 069, 069, 075, 040, 032, 149 

51246 : 080, 079, 075, 069, 032, 080, 205 

51252 :079, 083, 040, 032, 080, 082, 192 

51258 : 073, 078, 084, 032, 080, 082, 231 

51264 : 073, 078, 084, 035, 032, 082, 192 

51270 : 069, 065, 068, 032, 082, 069, 199 

51276 :077, 032, 082, 069, 083, 084, 247 

51282 : 079 , 082 , 069 , 032 , 082 , 069 , 239 

51288 :084, 085, 082, 078, 032, 082, 019 

51294 : 073, 071, 072, 084, 036, 040, 214 

51300 : 032, 082, 078, 068, 040, 032, 176 

5 1 306 : 082 , 085 , 078 , 032 , 083 , 065 , 01 9 

51312 :086, 069, 032, 083, 071, 078, 019 

51318 : 040, 032, 083, 073, 078, 040, 208 

51324 :032, 083, 080, 067, 040, 032, 202 

51330 :083, 081, 082, 040, 032, 083, 019 

51336 :084, 065, 084, 085, 083, 032, 057 

51342 : 083 , 084 , 069 , 080 , 032 , 083 , 061 

51348 :084, 079, 080, 032, 083, 084, 078 

5 1 354 : 082 , 036 , 040 , 032 , 083 , 089 , 004 

51360 1083,032,084,065,066,040,018 

51366 :032, 084, 065, 078, 040, 032, 241 

51372 .-084,072,069,078,032,084,079 

51378 : 073 , 077 , 069 , 032 , 084 , 073 , 074 

51384 :077, 069, 036, 032, 084, 079, 049 

51390 :032, 085, 083, 082, 032, 086, 078 

51396 :065, 076, 040, 032, 086, 069, 052 

51402 : 082 , 073 , 070 , 089 ,032 , 087 ,123 

51408 :065, 073, 084, 032, 000, 013, 219 

Program 2. JEProof 

51500 : 173, 036, 003, 201, 077, 208, 230 

51506 :001 , 096 , 141 , 078 , 201 , 173 , 228 

51512 :037, 003, 141, 079, 201, 169, 174 

51518 :077, 141, 036, 003, 169, 201, 177 

51524 : 141, 037, 003, 169, 000, 141, 047 

51530 t 213, 201, 096, 032, 087, 241, 176 
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51536 1 141 , 210 , 201 , 142 , 211 , 201 , 162 

51542 : 140, 212 , 201 , 008 , 201 , 013 , 093 

51548 :240,022, 201,032, 240,007,066 

51554 ; 024, 109 , 213 , 201 , 141 , 213 , 231 

51560 : 201, 173, 210, 201, 174, 211, 250 

51566 : 201, 172,212,201,040,096,008 

51572 1174,213,201,248,169,000,097 

51578 ! 141 , 000 , 001 , 141 , 001 , 001 , 151 

51584 : 224, 000, 240, 021, 202, 024, 071 

51590 : 173 , 000 , 001 , 105 , 001 , 141 , 043 

51596 :000 , 001 , 173 ,001 , 001 , 105 , 165 

51602 :000, 141, 001, 001, 076, 128, 237 

51608 : 201 , 216 , 173 ,001 , 001 , 009 , 241 

51614 : 176, 141, 002, 001, 173, 000, 139 

51620 : 001 , 074 , 074 , 074 , 074 , 009 , 214 

51626 : 176 , 141 , 001 , 001 , 173 , 000 , 150 

51632 :001, 041, 015, 009, 176, 141, 047 

51638 :000, 001, 162, 002, 160, 000, 251 

51644 : 140, 213 , 201 , 173 , 134,002 , 027 

51650 :153,096, 217, 189,000,001,082 

51656 : 153, 096, 005, 200, 202, 016, 104 

51662 : 240 , 076 , 105 , 201 , 013 , 013 , 086 
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II. 

^ One-Touch 
^ Keywords 

Mark Niggemann 

This powerful programming utility puts 52 of the 
most common BASIC Ueyujords at your fingertips. 



The less time spent t5^ing, the more time you have for 
programming. "One-Touch Kejwords" lets you use any of the 
letter keys in combination with either the SHIFT or Com- 
modore key to instantly print a BASIC keyword on the screen. 
For example, instead of typing GOSUB, you can hold down 
SHIFT and press G, and GOSUB will appear as if you had 
typed the whole keyword. See the table for a list of all the 
ke5rwords available. 

Activating the Keywords 

The program is a BASIC loader which moves the machine lan- 
guage from DATA statements into the upper part of free mem- 
ory. It also protects the machine language from interference by 
BASIC. 

Type in One-Touch Keywords by using "The Automatic 
Proofreader" program found in Appendix C. It will save you 
considerable time you might otherwise spend in checking and 
rechecking your program listing. 

A final checksum routine (lines 710-750) is included to 
aid in finding any errors in the machine language data. After 
you run the program once, type RUN 700 and the program 
will check your typing. Recheck the DATA statements if you 
get an error message. This final checksum is added insurance 
to the line-by-line checksum provided by the Proofreader. 

To activate the machine language, type SYS followed by 
the number displayed on the screen as the on/off address, 
then press RETURN. The one-touch keywords will remain en- 
abled even after the RESTORE key has been pressed. To dis- 
able the keywords, SYS the on/off address again. 
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Keywords 






Key 


w/ SHIFT 


w/ Commodore 


A 


PRINT 


PRINT* 


B 


AND 


OR 


c 


CHR$ 


ASC 


D 


READ 


DATA 


E 


GET 


END 


F 


FOR 


NEXT 


G 


GOSUB 


RETURN 


H 


TO 


STEP 


I 


INPUT 


INPUT# 


T 


GOTO 


ON 


K 


DIM 


RESTORE 


L 


LOAD 


SAVE 


M 


MID$ 


LEN 


N 


INT 


RND 


o 


OPEN 


CLOSE 


p 


POKE 


PEEK 





TAB( 


SPC( 


R 


RIGHTS 


LEFT$ 


s 


STR$ 


VAL 


T 


IF 


THEN 


U 


TAN 


SQR 


V 


VERIFY 


CMD 


W 


DEF 


FN 


X 


LIST 


FRE 


Y 


SIN 


COS 


Z 


RUN 


SYS 



One-Touch Keywords 

For mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C. 

140 IF PEEK(PEEK(56)*256)<>120THENPOKE56,PEEK(56)^ 

1:CLR trem 158 

150 HI=PEEK(56)tBASEsHI*256 srem 47 

160 PRINT" {CLR} PATIENCE..." :reni 206 

170 TOR AD=0 TO 211: READ BY :rein 153 

180 POKE BASE-I-AD,BY: NEXT AD :rem 88 

190 : :rem 212 

200 REM RELOCATION ADJUSTMENTS trem 184 

210 POKE BASE+26,HI: POKE BASE-t-81,HI :rein 2 

220 POKE BASE-t-123,HIt POKE BASE-fl33,HI srem 95 

230 s :rem 207 

231 ttIF PEEK( 65532 )»34 GOTO 240 :rem 135 
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232 ::POKE BASE+9,72i POKE BASE+48,194 :rem 51 

233 ::POKE BASE+52,235: POKE BASE+92,160 :rem 139 

234 t:POKE BASE+154,72: POKE BASE-f 157 , 224 :rem 193 

235 ::POKE BASE+158,234 :rein 230 

236 : : :rein 15 
240 PRINT" {CLRl* ONE-TOUCH KEYWORDS *" : rem 88 
250 PRINT "ON/OFF: {3 SPACES } SYS { RVS }"; BASE :rein 176 
260 END trem 111 
270 DATA 120, 173, 143, 2, 201, 32 :rem 127 
280 DATA 208, 12, 169, 220, 141, 143 : rem 239 
290 DATA 2, 169, 235, 141, 144, 2 :rem 94 
300 DATA 88, 96, 169, 32, 141, 143 :rem 155 
310 DATA 2, 169,(2 SPACES}0, 141, 144, 2 trem 237 
320 DATA 88, 96, 165, 212, 208, 117 :rem 206 
330 DATA 173, 141, 2, 201, 3, 176 :rem 83 
340 DATA 110, 201, 0, 240, 106, 169 irem 175 
350 DATA 159, 133, 245, 169, 236, 133 :rem 49 
360 DATA 246, 165, 215, 201, 193, 144 :rem 40 
370 DATA 95, 201, 219, 176, 91 , 56 :rem 160 
380 DATA 233, 193, 174, 141, 2, 224 :rem 194 
390 DATA 2, 208, 3, 24, 105, 26 :rem 245 
400 DATA 170, 189, 159, {2 SPACES}0, 162, :rem 92 
410 DATA 134, 198, 170, 160, 158, 132 trem 40 
420 DATA 34, 160, 192, 132, 35, 160 trem 187 
430 DATA 0, 10, 240, 16, 202, 16 trem 22 
440 DATA 12, 230, 34, 208, 2, 230 trem 78 
450 DATA 35, 177, 34, 16, 246, 48 trem 108 
460 DATA 241, 200, 177, 34, 48, 17 trem 147 
470 DATA 8, 142, 211,(2 SPACES }0, 230, 198 trem 91 
480 DATA 166, 198, 157, 119, 2, 174 trem 215 
490 DATA 211,(2 SPACES}0, 40, 208, 234, 230 

trem 131 

500 DATA 198, 166, 198, 41, 127, 157 trem 8 

510 DATA 119, 2, 230, 198, 169, 20 trem 146 

520 DATA 141, 119, 2, 76, 220, 235 trem 139 

530 DATA 76, 67, 236 trem 127 

540 t trem 211 

550 REM *TOKENS FOR SHIFT KEY trem 202 

560 t trem 213 

570 DATA 153, 175, 199, 135, 161, 129 trem 56 

580 DATA 141, 164, 133, 137, 134, 147 trem 42 

590 DATA 202, 181, 159, 151, 163, 201 trem 37 

600 DATA 196, 139, 192, 149, 150, 155 trem 52 

610 DATA 191, 138 trem 20 

620 t trem 210 

630 REM *TOKENS FOR COMMODORE KEY trem 240 

640 t :rem 212 
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650 DATA 152, 176, 198, 131, 128, 130 srem 45 

660 DATA 142, 169, 132, 145, 140, 148 :rQxn 43 

670 DATA 195, 187, 160, 194, 166, 200 :rem 54 

680 DATA 197, 167, 186, 157, 165, 184 :rein 72 

690 DATA 190, 158, :rem 121 

700 1 1 : rem 11 

710 :tREM *CHECKSUM ROUTINE trem 147 

720 :s :rein 13 

730 ::FOR AD=0 TO 158 : READ BY irem 25 

740 ::CHKSUM = CHKSUM + BY : NEXT AD : rem 166 

750 ::IF CHKSUM <> 20347 THEN PRINT "BRRORi" 

:rein 143 



268 



Autoload 

Dan Carmichael 

Have you ever wanted to type lOAD"*",8,l and 
have your favorite program automatically load and 
run itself like commercial software packages do? 
"Autoload" will create a program to do just that. 



When using commercial software, you've probably noticed 
that typing and entering IjOAD"*",8,1 will automatically load 
and start a program running without having to enter RUN. 
The first program loaded is known as a boot program. It's this 
program that loads and executes other programs on the disk. 

There are a number of different techniques that can 
accomplish this, such as overwriting the stack or changing vec- 
tors. (A vector is a pointer to the starting location of a machine 
language subroutine.) "Autoload" uses the latter method. 

Manipulating the Vectors 

In the Commodore 64, there's an area of unused memory 
from locations 679 to 767 ($02A7-$02FF). Like the cassette 
buffer, this 89-byte area is perfect for holding small machine 
language programs. 

Just past the end of this area of memory is a table of im- 
portant vectors. In the 64, these vectors are two bytes each, 
using the low byte/high Ijyte format. By changing the values 
of these pointers, you can redirect the system to your own 
programs. 

The vector we'll be using for Autoload is the BASIC Warm 
Start Vector at 770-771 ($0302-$0303). This vector points to 
the main BASIC program loop. This one loop is executed more 
often than any other routine of BASIC. It checks the keyboard 
again and again, waiting for input. When a key is pressed, it 
prints the character on the screen. It also watches for the RE- 
TURN key; pressing it sends the routine into action. This 
BASIC routine looks at the beginning of the line for a number 
as well. If it finds one, it assumes you're writing a program 
and enters it as a BASIC line. When no line number is found. 
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it executes the statement in direct mode. After executing the 
program (or the statement, if there's no number), the computer 
goes back to the main BASIC program loop, waiting patiently 
for more from the keyboard. 

This vector is also utilized when loading a program. After 
a program is loaded into the computer, the system returns to 
the BASIC program mode by looking at this pointer and 
executing the BASIC warm start program at 42115 ($A483). 

By changing the values in this vector, the computer can 
be directed to execute any machine language program instead 
of the normal BASIC warm start. In Autoload, changing the 
pointer value is accomplished by loading a program (which in- 
cludes the new pointer values) over the pointer. 

The automatic boot program that will be created (by 
Autoload) and saved to disk is placed into the area between 
679-750 ($02A7-$02EE). Before it's saved, the vector is 
changed to point to the start of the autoboot program which is 
at 679 ($02A7). Then the program and the pointer (locations 
679-771, $02A7-$0303) are saved to disk as one module. 

This becomes our autoboot program. Here's how it works: 

The autoboot program (along with the vector with the 
changed values) is loaded into memory. If it's the first pro- 
gram in the disk's directory, it can be loaded with the 
LOAD"*",8,l format. After the LOAD is finished, the com- 
puter looks at the BASIC warm start vector. Because the vector 
now points to the start of the autoboot program (location 679), 
that program is executed instead of the normal BASIC warm 
start routine. The autoboot program, in turn, loads in and exe- 
cutes the program you've specified. 

A Newly Created Program 

Type in Autoload. It's a BASIC program that POKEs a ma- 
chine language program into memory. When you're through, 
save it to disk. 

Because Autoload is in the form of a BASIC loader, you 
can use "The Automatic Proofreader" from Appendix C to 
help you type it in. Make sure you've read Appendix C and 
have a copy of the Proofreader on disk before you begin 
entering this program. There are also two other checksums in- 
cluded in Autoload to verify that the DATA statements were 
entered correctly. 

If you wish to autoboot a program using the 
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LOAD"*", 8,1 syntax, format a new disk and don't save any 
files on it until after you've created the autoboot program. 
This will insure that the autoboot program is the first entry in 
the disk directory. 

The first prompt will ask if the program you want to be 
automatically loaded and run is a BASIC or machine language 
program. Press B or M. If you press M for machine language, 
you'll be asked to supply the beginning address of the ML 
program. This is the SYS address that starts the ML program 
running. (In the ML programs in the book, for instance, you'll 
find that SYS mentioned near the beginning of the article, 
where details on how to enter and run it are described.) Enter 
a number, then press RETURN. 

Next, enter the name of the program you want to be auto- 
matically loaded. The program then instructs you to insert a 
newly formatted disk into the disk drive. Actually, the disk 
needs to be freshly formatted only if you wish to use the 
L0AD"*",8,1 syntax. Saving the autoboot program to a disk 
that contains other files is fine. 

Enter the name you wish to give to the autoboot program 
you'll be creating. For future reference, you might want to in- 
dicate in the filename that it's a boot program. For example, if 
you want to automatically load and run SPACEGAME, you 
could name the autoboot program for that game 
SPACEGAME.BOOT. 

After the Autoload program has run and created the 
autoboot program on the disk, turn off your 64 to reset the 
system. Be sure to then save a copy of the program you wish 
to have loaded and run on the same disk as the autoboot pro- 
gram. (It can't load and run a program that isn't there.) Be 
sure that you save the program with the same filename you 
told the autoboot program to look for. 

To use the autoboot program, type LOAD"filename",8,l 
where filename is the name of the autoboot program you cre- 
ated, not the name of the program that autoboot is to load and 
run. For example, typing LOAD"SPACEGAME.BOOT",8,l 
will automatically load and run "SPACEGAME". If you've 
done everything correctly, the program you specified should 
automatically run. 

Remember that for every program you want to load auto- 
matically, you will have to create a separate autoboot pro- 
gram. You can't just enter LOAD"*",8,l and expect every 
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program on the disk to automatically load. That would be a 
more complicated program. It wouldn't be that difficult, 
though; have Autoload load and run your own boot program, 
and it, in turn, could load any other programs you wanted. 

Autoload 

For mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C. 
5 PRINT" {CLR} PLEASE WAIT..." :rem 18 

10 B=679jC=767:TT=0 irem 51 

20 PORA=BTOCiREADDrTT=TT+D:POKEA,D:NEXT :rem 82 
25 IFTT<>8554THENPRINT"CHECK DATA STATEMENTS" ; B; "T 

0";C:END :rein 156 

30 B=7168jC=7623:TT=0 :rem 147 

40 PORA=BTOC:READD:TT=TT+D:POKEA,D:NEXT irem 84 
45 IFTT042577THENPRINT "CHECK DATA STATEMENTS "; B ; " 

TO";C:END :rem 209 

50 PRINT "{CLR} {DOWN} AUTO-LOAD A {RVS}B{ OFF} ASIC 

{SPACElOR {rvs}m{off}achine language{3 spaces}p 

ROGRAM?" :rem 124 

70 GETA$ :IFA$=""THEN70 :rein 241 

80 IFA$="M"THENGOSUB300 :rem 108 

299 SYS7168:END :rem 138 

300 print" {CLR} {DOWN} ENTER STARTING ADDRESS OF MA 
CHINE LANG. PROGRAM." :rem 24 

330 INPUTNjIFN<0ORN>65535THEN300 irem 238 
340 NN=INT(N/256) :POKE722,N-(NN*256) :POKE723,NN:PO 

KE721,32 irem 134 

345 POKE693,l srem 202 
350 P0KE7 18,32: POKE719 , 66 : P0KE7 20,166: P0KE7 24 , 76 : P 

OKE725,116:POKE726,164iRETURN :rem 184 

679 DATA169,131,141,2,3,169,164,141 :rem 245 

687 DATA3, 3, 169, 8, 170, 160, 0,32 :rein 245 

695 DATA186,255,169,2,162,239,160,2 :rem 255 

703 DATA32, 189, 255, 169, 0,166, 43, 164 :rem 250 

711 DATA44, 32, 213, 255, 32, 231, 255, 165 :rein 25 

719 DATA174,133,45,133,47,165,175,133 :rem 93 

727 DATA46, 133, 48, 234, 169, 82, 141, 119 :rem 47 

735 DATA2, 169, 213, 141, 120, 2, 169, 13 :rein 180 

743 DATA141,121,2,169,3,133,198,96 trem 195 

751 DATA0, 0,0, 0,0, 0,0,0 :rem 107 

759 DATA0,0,0,0,0,0,0,0,0 trem 207 

7168 DATA162,0,189,171,28,32,210,255 :rem 38 

7176 DATA232,224,98,208,245,162,0,32 :rem 38 

7184 DATA207,255,201,13,240,8,157,239 :rem 87 

7192 DATA2, 232, 224, 16, 208, 241, 142, 186 :rem 80 

7200 DATA2, 162, 0,189, 13, 29, 32, 210 :rem 123 

7208 DATA255, 232, 224, 59, 208, 245, 162,0 :rem 86 

7216 DATA160, 0,232, 234, 208, 252, 200, 208 :rem 116 

7224 DATA249,165,197,201,64,240,250,169 :rem 195 
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7232 DATA0, 133, 198, 162, 0,189, 74, 29 :rem 198 

7240 DATA32, 210, 255, 232, 224, 85, 208, 245 :rem 128 

7248 DATA162,0,32,207,255,201,13,240 :rein 19 

7256 DATA8, 157, 200, 29, 232, 224, 16, 208 :rem 36 

7264 DATA241,142,111,28,169,167,141,2 :rem 82 

7272 DATA3,169,2,141,3,3,169,0 srem 241 

7280 DATA162,200,160,29,32,189,255,169 :rem 143 

7288 DATA8, 170, 160, 255, 32, 186, 255, 169 jrem 106 

7296 DATA167,133,251,169,2,133,252,169 :rem 149 

7304 DATA251,162,4,160,3,32,216,255 :rein 229 

7312 DATA32,231,255,169,131,141,2,3 :rem 226 

7320 DATA169,164,141,3,3,162,0,189 trem 188 

7328 DATA159,29,32,210,255,232,224,41 :rem 84 

7336 DATA208,245,96,147,17,32,69,78 trem 12 

7344 DATA84,69,82,32,78,65,77,69 :rem 129 

7352 DATA32,79,70,32,13,80,82,79 :rein 102 

7360 DATA71,82,65,77,32,84,72,65 srem 110 

7368 DATA84,32,73,83,32,84,79,32 trem 114 

7376 DATA66,69,13,65,85,84,79,77 jrem 134 

7384 DATA65,84,73,67,65,76,76,89 J rem 136 

7392 DATA32,66,79,79,84,69,68,46 irem 135 

7400 DATA13,17,32,77,65,88,73,77 irem 107 

7408 DATA85,77,32,76,69,78,71,84 trem 128 

7416 DATA72,32,61,32,49,54,13,67 :rem 97 

7424 DATA72,65,82,65,67,84,69,82 :rem 122 

7432 DATA83,46,17,17,13,147,17,80 irem 147 

7440 DATA76,65,67,69,32,78,69,87 trem 131 

7448 DATA76,89,32,70,79,82,77,65 trem 130 

7456 DATA84,84,69,68,13,32,68,73 trem 122 

7464 DATA83,75,32,73,78,32,68,73 trem 117 

7472 DATA83,75,32,68,82,73,86,69 trem 125 

7480 DATA44,13,84,72,69,78,32,80 trem 109 

7488 DATA82,69,83,83,32,70,49,46 trem 123 

7496 DATA17,13,147,17,32,69,78,84 trem 167 

7504 DATA69,82,32,78,65,77,69,32 trem 120 

7512 DATA79,70,32,66,79,79,84,13 trem 117 

7520 DATA80,82,79,71,46,32,157,84 trem 158 

7528 DATA72,69,78,32,80,82,69,83 trem 124 

7536 DATA83,13,82,69,84,85,82,78 trem 125 

7544 DATA46,17,13,32,77,65,88,73 trem 112 

7552 DATA77,85,77,32,76,69,78,71 trem 130 

7560 DATA84,72,32,61,32,49,54,13 trem 96 

7568 DATA32,67,72,65,82,65,67,84 trem 124 

7576 DATA69,82,83,46,17,17,13,147 trem 165 

7584 DATA17,32,18,84,85,82,78,32 trem 115 

7592 DATA67,79,77,80,85,84,69,82 trem 138 

7600 DATA32,79,70,70,47,79,78,13 trem 108 

7608 DATA84,79,32,82,69,83,69,84 trem 131 

7616 DATA32,86,69,67,84,79,82,83 trem 130 
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Grunch ^ 

Mike Tranchemontagne | / 

I I 

Can't decide whether to use lots of REMs and ex- 
tra spaces to make your program more readable, i ) 
or keep it tight so that it executes faster? When ' — * 
you have "Crunch" in your programmer's tool' 
box, you inon't have to make that decision. This 
machine language utility quickly compacts any 
BASIC program, and even makes sure that vital 
lines are retained. 



When you program, it's almost as if you're being pulled in 
two opposite (Sections. On the one hand, you'd like to in- 
clude lots of REMarks and spaces between keywords to make 
the program more readable, and to make it easier to locate 
sections as you debug. But on the other hand, you'd like to 
use as little memory as possible. The shorter the program, the 
faster it will run. 

This short (264 bytes) machine language program crunches 
a BASIC program in memory. It removes extra spaces and 
REM statements, making the program shorter. Now you don't 
have to worry about those two opposite directions; you can 
write a program overflowing with REMs and spaces, save it 
for documentation, and then crunch it to increase speed and 
free up memory. That's the version you'll actually use. 

What Gets Crunched? l_j 
"Crunch" checks each BASIC program line for unnecessary 
spaces (those that aren't in quotes or part of a DATA state- 
ment), and then removes them. 1 j 

REM statements are handled with extra care to insure that 
the BASIC program works exactly the same after crunching. 
Since it's not unheard of for GOTOs and GOSUBs to refer to a j_J 
line which contains only a REM, they all can't be deleted. 
Therefore, any REM-only line is compacted, but not com- 
pletely eliminated. The line number and the REM statement 
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remain, but any text following REM is deleted. We'll caU this 
an empty REM. 

All other REMs (for instance, those included as part of a 
line which contains other, non-REM statements) are entirely 
erased. The connecting colon (:) is also deleted in this case. 

As Crunch runs, it prints a number sign (#) for each line 
of the BASIC program. Each time Crunch removes one or 
more spaces, or removes part or all of a REM, you'll see a left 
arrow («-) to show that memory is being compacted. When all 
BASIC program lines have been crunched, a CLR is per- 
formed, control returns to BASIC, and the READY prompt ap- 
pears. The program has been compacted and is ready to use. 

Note that the spaces between a line number and the first 
statement on that line are not in memory, but are printed by 
the LIST command. Also, empty REMs, as described above, 
take up only five bytes each. These lines are easy to spot 
when you list a program; if you want to remove them, you'll 
have to do it manually by t5^ing the line number and press- 
ing RETURN. Make sure those empty REM lines are not target 
lines for GOTO, GOSUB, or IF-THEN statements. 

Entering and Running Crunch 

Crunch is fully relocatable, and starts at the LOAD address. 
To enter the program, use MLX, "The Machine Language Edi- 
tor" found in Appendix D. Unlike other methods of entering 
machine language programs, MLX is easy to use and will al- 
most insure that you have a working copy of the program 
when you finish typing it in. MLX will ask for two addresses 
after you've loaded and run it. Those are: 

Starting address: 50400 
Ending address: 50663 

Now you can type in Crunch. Save it (through the Save op- 
tion of MLX) to tape or disk. You can load Crunch by entering 

l£>AD"filename",8,l for disk 

or 

WAD" filename", 1,1 for tape 

After loading Crunch, type NEW and press RETURN to 
reset BASIC'S pointers. Now you can enter or load any BASIC 
program as usual. To start Crunch, type SYS 50400 and hit 
RETURN. After several seconds (the time depends on how 
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long the BASIC program is), the READY prompt will show. 
You can list, save, and run the crunched BASIC program as 
you would any other. (It would be a good idea to first save it 
to tape or disk, just in case.) 

Crunch 

For easy entry of this machine language program, be sure to use "The Machine Language 
Editor: MIX," Appendix D. 

50400 :165, 043, 133, 251, 165, 044, 001 

50406 : 133 , 252 , 160 , 001 , 162 , 000 , 170 

50412 1177,251,240,053,169,035,137 

50418 :032 , 210 , 255 , 160 , 003 , 200 , 078 

50424 : 177, 251, 201, 000, 240, 062, 155 

50430 : 201 , 131 , 240 , 058 , 201 , 034 , 095 

50436 :240, 072, 201, 143, 240, 081, 213 

50442 : 201 ,032 , 208 , 233 , 152 ,072 , 140 

50448 1024,101,251,133,253,169,179 

50454 : 000 , 101 , 252 , 133 , 254 , 200 , 194 

50460 : 232, 177, 251, 201, 032, 240, 137 

50466 1 248 , 208 , 091 , 133 , 002 ,165,113 

50472 :045, 133, 047, 133, 049, 165, 100 

50478 s 046 , 133 , 048 ,133, 050 , 165 , 109 

50484 :055, 133, 051, 165, 056, 133, 133 

50490 : 052 , 096 , 160 , 000 ,177,251,026 

50496 :170, 200, 177, 251, 133, 252, 223 

50502 : 134, 251 , 240 , 160 , 208 , 158 , 197 

50508 :240, 170, 200, 177, 251, 201, 035 

50514 : 000 , 240 , 231 , 201 , 034 , 208 , 228 

50520 : 245,240,156,192,006,144,047 

50526 :002, 136, 136, 152, 024, 105, 137 

50532 :001, 072, 101, 251, 133, 253, 143 

50538 : 169, 000, 101, 252, 133, 254, 247 

50544 :200, 232, 177, 251, 201, 000, 149 

50550 : 208 , 248 , 202 , 208 , 005 , 104 , 069 

50556 :208, 190, 240, 204, 134, 002, 078 

50562 : 169 , 095 , 032 , 2 10 , 255 , 056 , 179 

50568 :165 ,045 ,229 ,002 , 133 ,045 , 243 

50574 : 165 , 046 , 233 , 000 , 133 , 046 , 253 

50580 : 162, 000, 164, 002, 177, 253, 138 

50586 : 129 , 253 , 024 , 165 , 253 , 105 , 059 

50592 1001,133,253,165,254,105,047 

50598 : 000 , 133 , 254 , 197 , 046 , 208 , 236 

50604 : 2 35, 165, 253, 197, 045 , 208 ,251 

50610 : 229 , 165 , 251 , 072 , 165 , 252 , 032 



276 



Utilities 



50616 : 072, 160, 000, 056, 177, 251, 132 
50622 : 229 , 002 , 145 , 251 , 170 , 200 , 163 
50628 :177, 251, 240, 013, 233, 000, 086 
50634 : 145 , 251 , 133 , 252 , 134 , 251 , 088 
50640 : 136 , 240 , 232 , 208 , 230 , 170 , 144 
50646 s 129 , 251 , 104 , 133 , 252 , 104 , 163 
50652 :133, 251, 104, 168, 169, 000, 021 
50658 : 240 , 154 ,035 , 005 , 255 ,013 , 160 



Disk Surgeon 

Gerald E. Sanders 

Many operations with your 1540 or 1541 disk 
drive can he tedious and difficult. This menU' 
driven program allows you to change a disk 
name, unscratch and scratch disk files, and even 
print out various lists of disk files, all with just a 
few keypresses. 



Have you ever needed to unscratch a program or file on a 
Commodore 1540/1541 disk? Did you ever want to rename 
an old disk without erasing the other files? Have you ever 
saved a program to disk and then seen a funny-looking title 
when you listed the directory? Or found you couldn't deter- 
mine the right combination of characters to scratch the un- 
wanted file? And then did you search the disk manual in vain 
to find the commands to rescue you from your predicament? 

While there are no neat, one-word commands to solve 
these types of problems, all the necessary information is there 
in the manual. The trouble is, it's somewhat scattered and 
cryptic. It may take some time to find what you're looking for. 

But by using "Disk Surgeon," a menu-driven program 
that allows you to perform several disk operations, you can 
avoid the disk manual and frustration altogether. 

On CaU 

Use "The Automatic Proofreader" (from Appendix C) to help 
you type in Disk Surgeon. The Proofreader insures that you'll 
enter Disk Surgeon correctly the first time. Once you have it 
tj^ed in, save it to disk. Run it as you would any BASIC pro- 
gram by entering LOAD" filename", 8. 

Simply insert the disk you want to operate on and press 
any key. The disk drive will whir for a moment, and the disk's 
name and ID will display. If this is the disk you intended 
(you've got a chance to change your mind at this point), press 
the y key and the disk's directory is read into memory. It may 
take a few moments, so be patient. 
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You'll see an eight-option menu on the screen. Now you 
can go to work. The program is self-explanatory for the most 
part, and takes you step by step through whatever process you 
select, but a quick review of the options and their features 
may help. 

Operations 

Once started. Disk Surgeon can be stopped only by exiting 
through the main menu. The POKE 808,234 in line 10 dis- 
ables the RUN/STOP and RESTORE keys. This was done to 
prevent leaving the program at a point where a direct access 
file might be left open and a change not completed. That 
could have unfortunate results. If the fact that the RUN/STOP 
and RESTORE keys are disabled bothers you, just delete the 
POKE from line 10. 

At any time after the main menu has appeared, you can exit 
an operation before it's completed by pressing the f 1 key at a 
Y/N prompt. Hitting the f 1 key returns you to the main menu. 

In the unlikely event of a disk read/ write error, Disk Sur- 
geon won't crash, but will ask if you want to stop or restart 
the program. It will restart from the very beginning. 

Notice that the messages are color-coded. Blue characters 
are used for general information and data. Black letters in- 
dicate a wait. White's used to signal you that the program is 
waiting for input. Cyan characters echo your input where nec- 
essary, and red letters show errors or cautions. 
Here are the eight operations you can perform with the 
Surgeon. 

Operation 1 — Change disk name. To change the disk's 
name, just hit the 1 key and type in the new name. Up to 16 
characters are allowed. You can use the DELete key to erase 
characters if you change your mind or mist)rpe something. 
There's a check to insure the name is what you wanted; press 
Y if it's okay, N if it's not. Disk Surgeon then changes the 
disk's name. You'll see the new name in the status line at the 
top of the screen when the main menu again appears. 

Operation 2 — View directory. Use this to look at the 
disk's directory. Ten files are displayed per screen. Press any 
key to continue with the viewing. Once all the files have been 
shown, you can look at them again by pressing the f7 key, or 
even print them out (assuming you have a printer connected 
to your 64) by hitting the f3 key. 
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Operation 3 — Unscratch file. Possibly the most valuable 
operation in Disk Surgeon, this feature allows you to recover 
files that you previously scratched (either through Disk Sur- 
geon, or through the "SO:filename" method), provided that 
DOS (Disk Operating System) has not already overwritten 
them with another fUe. Operation 3 is 100 percent effective in 
recovering scratched files if you use it immediately after the 
scratch is performed. The likelihood of success diminishes rap- 
idly as the number of files written to the disk after the scratch 
increases. 

There's another reason you should try to unscratch a file 
immediately after it's been scratched. If you scratch a file, save 
a different file to that same disk, then try to unscratch, you 
may damage the file saved between the scratch and unscratch 
operations. That's because the saved file may have used some 
of the sectors freed by the earlier scratch operation. When you 
try to unscratch, the program may try to retrieve those sectors, 
ruining the saved file. 

Pressing the 3 key sends Disk Surgeon to work. It finds 
all the scratched files (all the ones not already written over) 
and displays them one at a time, asking if you want to recover 
each one. Answer with a Y or N keypress. If you do want to 
unscratch that file, you then have to tell the Surgeon what 
type of file it is. You've got a choice between sequential, pro- 
gram, user, or relative files. Disk Surgeon works for a moment 
and then validates the disk. The validation is automatically 
done (in this operation, as well as the two scratch operations) 
to insure that files are not ruined. It takes a moment. You can 
verify that the file is back by viewing the directory again 
when you return to the main menu. 

Warning: validation of a disk will de-allocate blocks allo- 
cated for random access files. Don't use Disk Surgeon on disks 
that contain random access files. 

Operation 4— Scratch file— leave on directory. One of 
the two scratch operations, this one allows you to scratch the 
file, but retains it on the directory. This feature can be useful, 
especially when you later decide you want to unscratch it. As 
long as its name is still on the directory, you shouldn't have 
any trouble locating it. Just as in operation 3, you'll see the 
filenames one at a time. Pressing the Y key begins the scratch 
feature; hitting the N key moves you to the next filename. 
(Warning: After pressing the Y key, there is no chance to 
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change your mind. Make sure you want to scratch that file, or 
you'll have to unscratch it with operation 3.) Before this op- 
eration returns to the main menu, it validates the disk. 

Operation 5 — Scratch file — take off directory. Identical 
to operation 4, except that the scratched filename is dropped 
from the directory. 

Operation 6 — Print directory. If you have a printer con- 
nected to your Commodore 64, you can use this operation to 
print the entire directory, just the valid files, only the deleted 
files, or all the program files. These options are available once 
you press the 6 key when the main menu is on the screen. 

Operation 7— Go to another disk. Once the Surgeon is 
working, you can change disks by hitting the 7 key and insert- 
ing the new disk you want to operate on. 

Operation 8— Exit. Unless you delete the POKE 808,234 
from line 10, this is the only way you can exit the Surgeon. 
You'll see the READY prompt on the screen. Type RUN and 
press RETURN if you've changed your mind and want to use 
the Surgeon again. 

Not a Medical School 

This program is simply a utility. You don't have to know how 
DOS works in order to use it. But if you do want more de- 
tailed information on DOS and how it operates, take a look at 
"Disk Tricks," which I also wrote. It's in the September 1984 
issue of COMPUTEI's Gazette. (In fact, Disk Surgeon is, for the 
most part, a software package which includes three of the four 
small programs listed in that article.) 

You'll find Disk Surgeon easy to use, and best of all, a 
tremendous help in several disk manipulations. 

Disk Surgeon 

For mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C. 

10 POKE53280 , 11 : POKE53281 ,12t PRINT " { BLU } " i POKE808 , 

234 :rem 19 

20 DIMF$(144,4),T$(4),M$(3) :rein 58 

30 FORXs679T0718:READAxPOKEX,AtNEXT :rem 6 

40 T$ ( )= " DELETED " »T$ ( 1 )="SEQUENT . " t T$ ( 2 )= " PROGRAM 

"tT$(3)«"USER" I rem 161 

45 T$(4)="RELATIVE" :rem 67 

50 M$(0)»"{BLK} PRINTING ENTIRE DIRECTORY. . .PLEASE 

{ SPACE) WAIT. " trem 246 

60 M$(1)="{BLK} PRINTING VALID FILES ... PLEASE WA 

IT." irem 95 
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70 M$(2)="{BLK} printing SCRATCHED PILES ... PLEASE 

{ SPACE }WAIT.{BLU}" :rem 161 

80 M$(3)s''{BLK} PRINTING PROGRAM FILES ... PLEASE WA 
IT." :rem 11 

90 GOTO710 :rem 58 

100 INPUT#15,E,E$,ET,ES :rem 57 

110 IFE<20THENRETURN :rem 19 

120 PRINT" {CLR} {RED} {RVS} {10 SPACES)DISK ERROR 111 
{16 SPACES }{BLU}": PRINT: PRINT: PRINT :rem 177 
125 PRINT: PRINT :rem 236 

130 PRINTS, E$:PRINTET,ES :rem 31 

140 PRINT#15,"I" :rem 100 

150 CLOSE8:CLOSE15 :rein 90 

160 PRINT : PRINT: PRINT: PRINT "{WHT} PRESS ANY KEY TO 
RESTART PROGRAM." :rein 46 

170 PRINT: PRINT: PRINT: PRINT: PRINT "{RED} {4 SPACES}H 
IT 'PI' TO QUIT." :rem 95 

180 WAIT198,1:GETA$:IFA$="{P1}"THEN2410 :rein 118 
190 RUN :rein 143 

200 PRINT"{BLU} {2 SPACES}MAIN MENU:" :rem 22 

210 PRINT: PRINT" {2 SPACES}1. CHANGE DISK NAME" 

:rem 124 

230 PRINT: PRINT" {2 SPACES}2. VIEW DIRECTORY" 



240 PRINT: PRINT" {2 SPACES }3. 

250 PRINT:PRINT"{2 SPACES}4. 

DIRECTORY" 
260 PRINT: PRINT" {2 SPACES} 5. 

DIRECTORY" 



:rein 125 
UNSCRATCH FILE" 

:rein 90 

SCRATCH FILE-LEAVE ON 
:rein 165 
SCRATCH FILE-TAKE OFF 
:rein 157 

270 PRINT: PRINT" {2 SPACES}6. PRINT DIRECTORY" 

:rem 215 

280 PRINT: PRINT" {2 SPACES}7. GO TO ANOTHER DISK" 

:rem 12 

290 PRINT: PRINT" {2 SPACES }8. QUIT PROGRAM": rem 244 
300 PRINT:PRINTSPC(9)"{V»HT}WHICH OPTION? (1-8) 

:rein 240 

310 WAIT198 , 1 :GETA$ : IFA$ < " 1 "ORA$ > "8"THEN310 

:rein 169 

320 RETURN :rem 117 

330 OPEN15,8,15,"I":GOSUB100 :reni 40 

340 OPEN8,8,8,"#":GOSUB100 :rem 167 

350 PRINT#15,"U1:"8;0;T;S:6OSUB100 :rem 233 

360 PRINT#15, "B-P:"8;BP:GOSUB100 :rem 104 

370 PRINT#8,D$; :GOSUB100 :rein 156 

380 PRINT#15,"U2:"8;0;TjS:GOSUB100 :rem 237 

390 CLOSES :CL0SB1 5: RETURN :rem 122 

400 OPEN15,a,15, "I" :Kem 219 

410 0PEN8,8,8,"#" :rem 90 

420 PRINT#15,"U1:"8;0;T;S:GOSUB100 :rem 231 
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430 GET#8,NT$:IFNT$=""THENNT$=CHR$(0) :reni 136 

440 NT=ASC(IIT§) :rem 101 

450 GET#8,NS$:IFNS$=""THENNS$=CHR$(0) :rem 135 

460 NS=ASC(NS$) «rem 101 

470 BL$="" J rem 206 

480 F0RX=1T0254 :rem 135 

490 GET#8,A$sIPA$=""THENA$=CHR$(0) :rem 107 

500 BL$=BL$+A$ :rem 198 

510 NEXT :reni 213 

520 GOSUB100 :rein 168 

530 CLOSES :CL0SE15: RETURN :rem 118 

540 PRINTtPRINT:PRINTSPC(2)"{BLK}DISK WILL NOW BE 

{SPACE} VALIDATED i rem 21 

545 PRINT : PRINT tPRINTSPC( 13) "PLEASE WAIT.": rem 181 
550 OPEN15,8,15,"V"iCLOSE15:RETURN :rem 30 

560 SYS679:IPA=5THEN1010 »rem 173 

570 PRINTM$(A-1) sOPEN4,4:PRINT#4:PRINT#4:PRINT#4," 

PROGRAM NAME:";CHR$(16); :rem 246 

580 PRINT #4, "20TYPE: ":PRINT#4:PRINT#4 : rem 11 

590 PORX=0TO143 J rem 133 

600 IFA«1THENIFLEFT$ (F$ (X, 1 ) , 1 )»CHR$ (0)THEN660 

:rem 137 

610 IFA=2THENIFASC(F$(X,0))<129THEN660 trem 206 
620 IFA=3THENIFASC ( F$ (X , ) ) > 1280RLEFT $(F$(X,1),1)= 
CHR$(0)THEN660 :rem 158 

630 IFA=4THENIFASC(F$(X,0))<>130THEN660 :rem 8 

640 P$=F$(X,1) :T=ASC(F$(X,0) )-128:IFT<0THENT=0 

trem 94 

650 PRINT#4,P$;CHR$(16);"20";T$(T) trem 76 

660 NEXT trem 219 

670 CLOSE4tPRINTSPC(8)"{BLU)PRINTOUT COMPLETE ..." 

trem 72 

680 PRINTtPRINTtPRINTf PRINT" {WHT)HIT ANY KEY TO RE 

TURN TO THE MAIN MENU." trem 14 

690 PRINT tPRINT"HIT {RVS}F3{0FF}T0 GO TO PRINT OPT 

ION MENU." trem 222 

700 WAITl 98, It GET A$t RETURN trem 100 

710 PRINT" {CLR}{RVS}{BLU} {13 SPACES)DISK SURGEON 

{15 SPACES}" trem 123 

720 PRINT t PRINT t PRINTSPC ( 5 ) " { BLU } PLEASE INSERT THE 
DISK TO BE" trem 72 

730 PRINTtPRINTSPC( 12) "OPERATED UPON." trem 144 
740 PRINTtPRINTtPRINTtPRINTSPC(6)"{WHT}PRESS ANY K 

EY WHEN READY." trem 102 

750 WAIT198,ltGETA$tSYS679 trem 46 

760 PRINT t PRINT t PRINT t PRINT t PRINT trem 70 

765 PRINTSPC(1)"{BLK}READING DISK CONTENTS, PLEASE 
WAIT." trem 71 

770 T=18tS=0tGOSUB400 trem 224 

780 FORX=143T0158 trem 244 
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790 IPMID$(BL$,X,1)=CHR$(96)THEN800 i rem 214 

795 IPMID$ ( BL$ , X , 1 ) <>CHR$ ( 160 ) THENDN$=DN$+MID$ ( BL$ 

»X,1) J rem 94 

800 NEXT :rem 215 

810 DI$=MID$(BL$,161,2) :SYS679 irem 137 

820 PRINT" {BLU} DISK NAME: "DN$ :PRINTiPRINT"DISK ID 

s "DI$ :rem 59 

830 PRINT:PRINT:PRINTSPC(2)"{WHT)IS THIS THE CORRE 

CT DISK? (Y/N)" :rem 192 

840 WAIT198, 1 :GETA$ :IFA$ <> "Y"ANDA$ <> "N"THEN840 

:rein 163 

850 IFA$="N"THENRUN :rem 132 

860 SYS679 : PRINT : PRINT : PRINT : PRINTSPC ( 4 ) " { BLK } READ 
ING DIRECTORY INTO MEMORY." :rem 142 

870 PRINT: PRINT: PRINTSPC (13) "PLEASE WAIT.": rem 182 
880 T=18:S=1:R=0 :rem 142 

890 GOSUB400 :rem 181 

900 FORX=0TO7 :rem 31 

910 F$(X+R*8,0)=MID$(BL$,X*32+1,1) :rem 242 

920 P$(X+R*8,1)=MID$(BL$,X*32+4,16) :rem 45 

930 F$(X+R*8,2)=CHR$(T) :rem 207 

940 F$(X+R*8,3)=CHR$(S) : rem 208 

950 P$(X+R*8,4)=CHR$(X*32+2) : rem 195 

960 NEXT :rem 222 

970 IPNT<>0ANDNS<=18THENT=NT:S=NS:R=R+1 :GOTO890 

:rem 41 

980 IF(X+R*8)>=143THEN1010 :rem 188 

990 PORZ=(X+R*8)TO144:F$(Z,0)=CHR$(0) :P$ (Z, 1 )=CHR$ 
(0):F$(Z,2)=CHR$(0) :rem 37 

1000 P$(Z,3)=CHR$(0) :F$l(Z,4)=CHR$(0) :NEXT :rem 219 
1010 IPLEN(DN$)<16THENDN$=DN$+" ":GOTO1010 :rem 86 
1020 TL$="{CLR}{RVS}{BLU} DISK NAME: "+DN$+" 

{3 SPACEsilD: "+DI$+"{3 SPACES}" :rem 180 

1030 PRINTTL$ :rem 21 

1040 GOSUB200 :rem 215 

1050 SYS679:A=VAL(A$) :ONAGOTO1060, 1480, 1670, 1950, 2 

120,2290,2400,2410 :rem 145 

1060 PRINT: PRINT "{BLU} INPUT NEW DISK NAME UP TO 16 
CHARACTERS." : rem 1 

1070 PRINT : PRINTSPC (6) "{WHT} PRESS { RVS } RETURN { OFF } 
WHEN FINISHED." :rem 141 

1080 NN$="":X=0:PRINT:PRINTSPC(6)"{CYN}"; :rem 34 
1090 WAIT198,1:GETA$ :rem 125 

1100 IFA$=CHR$(13)THEN1160 :rem 160 

1110 IPA$="{P1}"THEN1010 :rem 174 

1120 IFA$=CHR$ ( 20 )ANDLEN (NN$ ) >0THENX=X-1 :NN$=LEPT$ 

(NN$,(LEN(NN$)-1)) :rem 182 

1125 IFA$=CHR$(20)ANDLEN(NN$)>0THENPRINTCHR§(20) ; : 

GOTO1090 trem 199 

1130 IFA$=CHR${20)ANDLEN(NN$)=0THEN1090 :rem 211 
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1140 NN$=NN$+A$ :X=X+1 :PRINTA$; : IFX=16THEN1160 

trem 185 

1150 GOTO1090 :rem 202 

1160 SYS679:PRINT"{BLU)NEW NAME: ";NN$ trem 215 
1170 PRINT:PRINT:PRINTSPC(8)"lWHT}lS THIS CORRECT? 

(Y/N)" :reni 232 

1180 WAIT198, 1 :GETA$ : IFA$< > "Y"ANDA$<> "N"ANDA$< > " 

{Fll"THEN1180 irem 122 

1190 IFA$="N"THENSYS679:GOTO1060 trem 156 

1200 IFA$="{F1}"THEN1010 :rem 174 

1210 IFLEN(NN$)<16THENNN$=NN$+CHR$(160) :GOTO1210 

trem 29 

1220 SYS679 : PRINT : PRINT i PRINT : PRINT : PRINTSPC ( 10 ) " 

{BLK} CHANGING DISK NAME." :reni 114 

1230 T=18:S=0:BP=144:D$=NN$:GOSUB330 trem 75 

1240 OPEN15,8,15,"I":CLOSE15 trem 36 

1250 SYS679 : PRINT : PRINT : PRINT : PRINT t PRINTSPC ( 9 ) " 

{BLU}NAME CHANGE COMPLETE." trem 113 

1260 DN$=NN$tFORX=0TO500tNEXT:GOTO1010 trem 72 

1480 PRINT"{BLU) VIEW DIRECTORYt" trem 231 

1490 PRINTtPRINT" NO.", "FILE TYPE", "{2 SPACES}FILE 
NAME {BLUl"t PRINT trem 154 

1500 Z=0tPOKE686,4tPOKE698,200 trem 200 

1510 FORX=0TO9 trem 79 

1520 A=(ASC(F$(X+Z*10,0)))-128tIFA<0THENA=0trem 89 
1530 IF(A=0ANDF$(X+Z*10,1)="")OR(A=0AND(ASC(F$(X+Z 

*10,1))=0))THEN1590 trem 2 

1540 PRINTX+(Z*10)+1,T$(A),"{2 SPACES} " ;F$ (X+Z* 10 , 

1) trem 205 

1550 NEXT trem 10 

1560 PRINTtPRINT :PRINTSPC( 3) "{WHT}PRESS ANY KEY TO 
CONTINUE LIST{BLU}":WAIT198,ltGETA$ trem 72 
1570 IFA$="{F1}"THEN1630 trem 192 

1580 SYS679: PRINT: PRINT :Z=Z+ltGOTO1510 trem 194 
1590 PRINT:PRINT:PRINT"{BLU}LIST COMPLETE. {WHT}PR 

ESS {RVS}F7{0FF} TO VIEW AGAIN." trem 47 

1600 PRINT tPRINTSPC( 4) "PRESS {RVS}F3{0FF} TO PRINT 
DIRECTORY." trem 135 

1610 PRINTtPRINT" PRESS ANY KEY TO GO TO THE MAIN 

{ SPACE }MENU." trem 3 

1620 WAIT198,1 :GETA$ trem 124 

1630 POKE686,2:POKE698,40 trem 155 

1640 IFA$="{F7l"THENSYS679tGOTO1480 trem 220 

1650 IFA$=" {F3}"THENSYS679tGOTO2290 trem 219 

1660 GOTO1010 trem 200 

1670 PRINT" {BLU}UNSCRATCH FILEt " tP0KE686,4tP0KE698 

, 160 : rem 3 

1680 V=0 :rem 146 

1690 FORX=0TO143 t A=( ASC (F$ (X, ) ) ) -128 t IPA<0THENA=0 

trem 114 
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1700 IFA>0THENGOTO1890 



: rem 64 



1710 IFA=0AND ( LEFT $ ( F$ ( X , 1 ) , 1 )=CHR$ ( ) ORLEPT $ ( F$ ( X 



1720 SYS679:PRINT:PRINT:PRINTX+1,F$(X,1) :reni 20 
1730 PRINT:PRINT:PRINTSPC(2)"{WHT}WANT TO UNSCRATC 
H THIS FILE? {2 SPACES} (Y/N) { BLU} " :rera 253 
1740 WAIT198,1:GETA$:IFA$<>"Y"AND A$<> "N"ANDA$<> " 



1760 IFA$=" {PI } "THENP0KE686 , 2 :POKE698,40 :GOTO1010 

:reni 253 

1770 SYS679:PRINT"{BLU}WHAT FILE TYPE?" :reni 115 
1780 PRINT: PRINT" {2 SPACES} 1. SEQUENTIAL" treiti 194 
1790 PRINT I PRINT" {2 SPACES}2. PROGRAM" : rem 225 
1800 PRINT;PRINT"{2 SPACES}3. USER" :rem 1 

1810 PRINT: PRINT" {2 SPACES}4. RELATIVE" :rem 32 
1820 PRINT:PRINT"{RED}{2 SPACES}5. ABORT UNSCRATCH 

{BLU}" :rem 36 

1830 PRINT: PRINT :PRINTSPC( 10 )"{WHT}WHICH TYPE? (1- 

5)" :rein 160 

1840 WAIT198 , 1 :GETA$ : I FA$ < " 1 "ORA$ > " 5 "THEN1840 

:rein 24 

1850 IFA$=" 5 "THENP0KE686 , 2 :POKE698 , 40 :GOTO1010 

:rein 173 

I860 FT=VAL(A$)+128iFT$=CHR$(FT) :BP=ASC(F$(X,4) ) :T 
=ASC(P$(X,2)):S=ASC(F$(X,3)) :rem 146 

1870 D$=FT$:GOSUB330 :rem 131 

1880 F$(X,0)=FT$:V=1 :rem 57 

1890 SYS679 :PRINT: PRINT :PRINTSPC( 11 )" {BLK} .. . WORK 
ING ...{BLU}" :rem 141 

1900 NEXT :rem 9 

1910 SYS679:PRINTSPC(2)"{BLU}NO MORE DELETED FILES 
ON THIS DISK." :rem 107 

1920 IFV=1THENGOSUB540 :rem 103 

1930 PRINT:PRINT:PRINTSPC(2)"{WHT}HIT ANT KEY TO R 
ETURN TO MAIN MENU." :rem 249 

1 940 WAITl 98 , 1 : GETA$ : P0KE686 , 2 : P0KE698 , 40 : 60T01 01 

:rem 193 

1950 PRINT" {BLU} SCRATCH FILE - LEAVE ON DIRECTORY: 

":POKE686,4:POKE698,200 :rem 72 

I960 V=0 :reni 147 

1970 FORX=0TO143:A=(ASC{P$(X,0)))-128:IFA<0THEN206 

:rem 141 

1980 SYS679: PRINT: PRINT :PRINTX+1,F$(X,1) :rein 28 
1990 PRINT : PRINT :PRINTSPC(2)"{WHT} WANT TO SCRATCH 

(SPACElTHIS PILE2{3 SPACES }|Y/N) {BLa} ": rem 98 
2000 WAITl 98, 1 :GETA$ : IFA$<> "Y"ANDA$< > "N"ANDA$<> " 

{F1}"THEN2000 :rem 106 

2010 IFA$="N"THEN2070 :rein 126 



, 1 ) , 1)=CHR$( 160 ) )THEN1890 



:reni 139 



{F1}"THEN1740 
1750 IFA$="N"THEN1900 



:rem 126 
:reni 137 
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2020 IFA$=" {Fl } "THENPOKE686 , 2 :POKE698 , 40 :GOTO1010 

:rem 243 

2030 BP=ASC(F$(X,4)) :T=ASC(F$(X,2)) iS=ASC(P$(X,3)) 

:rein 247 

2040 D$=CHR$(128) :GOSUB330 : rem 168 

2050 F$(X,0)=CHR$(128) :V=1 :reni 94 

2060 SYS679:PRINT:PRINT:PRINTSPC(11)"{BLK} ... WOR 

KING ...{BLU}" I rem 131 

2070 NEXT :rem 8 

2080 SYS679!PRINTSPC(5)"{BLU}NO MORE PILES ON THIS 
DISK." :rera 118 

2002 IFV=1THENGOSUB540 :rem 102 

2100 PRINT:PRINT:PRINTSPC(2)"{WHT}HIT ANT KEY TO R 

ETURN TO MAIN MENU." :rem 239 

2110 WAIT198, 1 :GETA$ :POKE686,2 :POKE698,40:6OTO1010 

:rem 183 

2120 PRINT" {BLU} SCRATCH FILE - TAKE OFF DIRECTORY: 

":POKE686,4:POKE698,200 :rem 52 

2130 V=0 :rem 137 

2140 FORX=0TO143:A=(ASC(F$(X,0) ) ) -128 :IFA<0THEN223 

:rem 130 

2150 SYS679:PRINT:PRINT:PRINTX+1,F$(X,1) srem 18 
2160 PRINT:PRINT:PRINTSPC(2)"{WHT}WANT TO SCRATCH 

{ SPACE }THIS PILE? {3 SPACES }( Y/N ){ BLU }": rem 88 
2170 WAIT198, 1 :GETA$ :IFA$<> "Y"ANDA$<> "N"ANDA$< > " 

{F1}"THEN2170 :rem 122 

2180 IFA$="N"THEN2240 :rem 133 

2190 IFA$=" {Fl } "THENPOKE686 , 2 :POKE698,40 :GOTO1010 

:rem 251 

2200 BP=ASC(F$(X,4)) :T=ASC(F$(X,2)) :S=ASC(P$(X,3)) 

:rem 246 

2210 D$=CHR$(0) :GOSUB330 :rem 60 

2220 P$(X,0)=CHR$(0) :V=1 :rem 242 

2230 SYS679 : PRINT: PRINT :PRINTSPC( 11 )" {BLK} .. . WORK 

ING ...{BLU}" :rem 130 

2240 NEXT :rem 7 

2250 SYS679:PRINTSPC(5)"{BLU}NO MORE PILES ON THIS 
DISK." : rem 117 

2260 IPV=1THENGOSUB540 :rem 101 

2270 PRINT: PRINT :PRINTSPC(2)"{WHT}HIT ANT KEY TO R 

ETURN TO MAIN MENU . " : rem 247 

2280 wait! 98, 1 :GETA$ :POKE686,2 :POKE698,40:GOTO1010 

:rem 191 

2290 PRINT:PRINT:PRINT"{BLU}PRINT DIRECTORY OPTION 
S:" :rem 243 

2300 PRINT: PRINT" {2 SPACES}!. PRINT ENTIRE DIRECTO 
RY" -rem 197 

2310 PRINT: PRINT" {2 SPACES}2. PRINT ONLY VALID FIL 
ES" srem 112 
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2320 PRINT: PRINT" {2 SPACES13. PRINT ONLY DELETED F 
ILES" :reni 249 

2330 PRINT: PRINT" {2 SPACES}4. PRINT ONLY PROGRAM P 
ILES" :reni 28 

2340 PRINT:PRINT"{2 SPACES}5. ABORT PRINT OPTION" 

:rein 162 

2350 PRINT: PRINT :PRINTSPC( 9) "{WHT}WHICH OPTION? (1 
-5)" :rem 13 

2360 WAITl 98 , 1 :GETA$ : IFA$ < " 1 "ORA$ > " 5 "THEN2360 

:rein 20 

2370 A=VAL(A$) :GOSUB560 : rem 56 

2380 IPA$="{P3}"THENSYS679:GOTO2290 :rem 220 

2390 POKE686,2:POKE698,40:6OTO1010 :rein 212 

2400 RUN :rein 187 

2410 PRINT" { CLR} { BLU } " :POKE808 , 237 : CLOSES : CL0SE15 : 

END :rein 42 

2420 DATA8, 72, 138, 72, 152, 72, 162, 2, 160, 0,24, 32, 240, 

255,160,0,169,32,153,40,4 irem 133 

2430 DATA153, 0,5, 153, 0,6, 153, 0,7, 200, 208, 241, 104,1 

68,104,170,104,40,96 :rem 132 
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Machine Language 
Saver 

John O. Battle 

Here's an easy way to save machine language pro- 
grams to tape or disk from your Commodore 64. 



You've just written the ultimate character movement routine 
for your latest videogame, and, of course, it's written in ma- 
chine language for speed. Now you want to save it for future 
use. (You certainly don't want to type the routine in and de- 
bug it again.) But how do you get it onto tape or disk? The 
BASIC command SAVE works only for programs written in 
BASIC. You could load in a machine language monitor pro- 
gram and use its SAVE feature, but perhaps you don't have a 
monitor; loading the morutor might even overwrite the routine 
you want to save. 

SAVE and LOAD 

Here's the solution. "ML Saver" is a BASIC program which 
loads in a short machine language routine of its own. This 
routine allows you to easily save other machine language pro- 
grams to tape or disk. And since it's in machine language, it's 
extremely fast. 

Because it's in the form of a BASIC loader, you can use 
"The Automatic Proofreader" from Appendix C to help in typ- 
ing it in. The Proofreader makes it almost impossible to make 
a mistake when you enter a program. 

Once ML Saver is typed in and saved to tape or disk, en- 
ter RUN. Since the numbers in the DATA statements in lines 
1000-1300 make up a machine language program, they must 
be typed in exactly, no errors allowed. (For that reason, it's an 
excellent idea to save the program before you try to run it.) 
The program is self-prompting — simply press the letter T (for 
SAVE to tape) or D (for disk) when asked. Then enter the 
beginning address for the SAVE and press RETURN. 
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The program will next ask for the final address in the 
block of memory to be saved. If you press RETURN without 
entering an ending address, the program will ask instead for 
the total number of bytes you wish to save (beginning with 
the byte at the starting address). If your final address is not 
greater than your starting address, you'll be asked to enter 
both addresses again. 

Finally, the program will allow you to specify a filename 
for the SAVEd program. This name can be no more than ten 
characters long. 

In order to load a machine language routine that was put 
on tape or disk by ML Saver, use the standard BASIC com- 
mand LOAD, but be sure to follow the device number with a 
comma and a one. For example: 

lX)AD"filename"Al (for disk) 
IX) AD" filenamef', 1,1 (for tape) 

The ,1 at the end of the LOAD command tells the computer to 
load the routine into the same memory locations from which it 
was saved. Without it, the auto-relocating feature of the 64's 
LOAD command would cause the routine to be stored begin- 
ning at the normal start-of-BASIC location. 

ML Saver 

For mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C. 
10 PRINT "{CLR}{9 DOWN} {9 RIGHT} {RVS} MACHINE LANGU 
AGE SAVE {RVS}" :rem 239 

70 PGR 1=7424 TO 7489 :reni 36 

80 READ X :rein 220 

90 POKE I,X :NEXT I :rem 39 

95 FOR 1=1 TO 3000:NEXT I J rem 52 

100 PRINT" {CLR}{ 10 DOWN} {6 RIGHT}" :rem 77 

110 PRINT "{RVS}T{OPF}APE OR {RVS}D{0FF}ISK" 

:rem 161 

120 GET D$jIP D$="" THEN 120 jrem 79 

130 IF D$="T" THEN PRINT" {UP } TAPE SELECTED" iLF=l :D 

N=1:SA=2 :rem 21 

140 IP D§="D" THEN PRINT" {UP} DISK SELECTED" :LP=15 : 

DN=8:SA=15 trem 119 

150 IP D$<>"T" AND D$<>"D" THEN PRINT" {UP }" :G0T0 1 

20 trem 115 

160 POKE 7661, LP :reni 88 

170 POKE 7662, DN :reni 90 

180 POKE 7663, SA trem 94 

200 INPUT "STARTING ADDRESS FOR SAVE";S trem 124 
210 Sl=INT(S/256) trem 175 
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220 


S2=S-S1*256 




:reni 33 


230 


POKE 251, S2 




I rem 13 


240 


POKE 252,81 




: rem 14 


245 


II II 




trem 129 


O C 

250 


INPUT"FINAL ADDRESS OF SAVE";A$ 




trem. 63 


2o0 


IF A$="" THEN 300 




:rem 207 


O "TIM 

270 


F=VAL(A$) 




:rem 181 


o n m 


GOTO 320 




t rem 104 


O 01171 

300 


INPUT "{UP} NUMBER OF BYTES TO BE 


SAVED" ;N 








: rem 3 


310 


F=S+N-1 




trem 65 


J20 


Fl=INT(F/256) 




trem 151 


330 


F2=P-F1*256 




:rem 252 


335 


IF P<S THEN PRINT"{3 UP}":GOTO 200 


trem loJ 


340 


POKE 7659, P2 




t rem 69 


350 


POKE 7660, Fl 




trem 61 


400 


INPUT"PROGRAM NAME";N$ 




trem 78 


410 


NL=LEN(N$) 




t rem 14 


420 


IF NL<10 THEN 460 




trem 37 


430 


PRINT "NAME TOO LONG" 




trem 171 


440 


GOTO 400 




trem 101 


460 


POKE 7648, NL 




trem 104 


4 lY) 


FOR 1=1 TO NL 




trem 118 


AQOl 
'toV) 


POKE 7648+I,ASC(MID$(N$,I,l)) 




trem 255 


490 


NEXT I 




trem 37 


500 


IF D$="D" THEN PRINT "PRESS ANY 


KEY 


TO SAVE" 






trem 129 


505 


IF D$="T" THEN PRINT"REWIND TAPE 


AND 


PRESS ANY 




KEY" 




trem 138 


510 


GET A$ 




trem 219 


520 


IF A$="" THEN 510 




trem 209 


530 


SYS 7472 




trem 107 


560 


END 




trem 114 



1000 DATA 169,192,32,144,255,173,237,29,174,238,29 

,172,239,29,32,186,255,173 trem 193 

1100 DATA 224,29,162,225,160,29,32,189,255,96,234, 

234,234,234 trem 197 

1200 DATA 169,0,32,144,255,96,234,234,234,234,234, 

234,234,234,234,234 trem 68 

1300 DATA 32,0,29,169,251,174,235,29,172,236,29,32 

,216,255,32,32,29,0 trem 66 
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A Beginner^s Guide 
to Typing In Programs 

What Is a Program? 

A computer cannot perform any task by itself. Like a car with- 
out gas, a computer has potential, but without a program, it 
isn't going anywhere. Most of the programs published in this 
book are written in a computer language called BASIC. BASIC 
is easy to learn and is built into all Commodore 64s. 

BASIC Programs 

Computers can be picky. Unlike the English language, which 
is full of ambiguities, BASIC usually has only one right way of 
stating something. Every letter, character, or number is signifi- 
cant. A common mistake is substituting a letter such as O for 
the numeral 0, a lowercase 1 for the numeral 1, or an upper- 
case B for the numeral 8. Also, you must enter all punctuation 
such as colons and commas just as they appear in the book. 
Spacing can be important. To be safe, type in the listings ex- 
actly as they appear. 

Braces and Special Characters 

The exception to this typing rule is when you see the braces, 
such as {DOWN}. Anything within a set of braces is a special 
character or characters that cannot easily be listed on a printer. 
When you come across such a special statement, refer to 
Appendix B, "How to T5^e In Programs." 

About DATA Statements 

Some programs contain a section or sections of DATA state- 
ments. These lines provide information needed by the pro- 
gram. Some DATA statements contain actual programs (called 
machine language); others contain graphics codes. These lines 
are especially sensitive to errors. 

If a single number in any one DATA statement is 
mistyped, your machine could lock up, or crash. The keyboard 
and STOP key may seem dead, and the screen may go blank. 
Don't panic — no damage is done. To regain control, you have 
to turn off your computer, then turn it back on. This will erase 
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whatever program was in memory, so always save a copy of 
your program before you run it. If your computer crashes, you 
can load the program and look for your mistake. 

Sometimes a mistyped DATA statement will cause an er- 
ror message when the program is run. The error message may 
refer to the program line that reads the data. The error is still 
in the DATA statements, though. 

Get to Know Your Machine 

You should familiarize yourself with your computer before 
attempting to type in a program. Learn the statements you use 
to store and retrieve programs from tape or disk. You'll want 
to save a copy of your program, so that you won't have to 
type it in every time you want to use it. Learn to use your ma- 
chine's editing functions. How do you change a line if you 
made a mistake? You can always retype the line, but you at 
least need to know how to backspace. Do you know how to 
enter reverse video, lowercase, and control characters? It's all 
explained in your computer's manuals. 

A Quick Review 

1. Type in the program a line at a time, in order. Press 
RETURN at the end of each line. Use backspace or the back 
arrow to correct mistakes. 

2. Check the line you've typed against the line in the book. 
You can check the entire program again if you get an error 
when you run the program. 
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How to Type In Programs 



I To make it easy to know exactly what to type when entering 
one of these programs into your computer, we have estab- 
^ lished the following listing conventions. 
/ I Generally, Commodore 64 program listings will contain 

words within braces which spell out any special characters: 
{DOWN} would mean to press the cursor down key. 
{5 SPACES} would mean to press the space bar five times. 

To indicate that a key should be shifted (hold down the 
SHIFT key while pressing the other key), the key would be 
underlined in our listings. For example, S would mean to 
type the S key while holding the SHIFT key. This would ap- 
pear on your screen as a heart symbol. If you find an under- 
lined key enclosed in braces (e.g., {10 N}) , you should type 
the key as many times as indicated (in our example, you 
would enter ten shifted N's). 

If a key is enclosed in special brackets, f< >], you should 
hold down the Commodore key while pressing the key inside 
the special brackets. (The Commodore key is the key in the 
lower left comer of the keyboard.) Again, if the key is pre- 
ceded by a number, you should press the key as many times 
as necessary. 

Rarely, you'll see a solitary letter of the alphabet enclosed 
in braces. These characters can be entered by holding down 
the CTRL key while typing the letter in the braces. For exam- 
ple, {A} would indicate that you should press CTRL-A. 

About the quote mode: You know that you can move the 
cursor around the screen with the CRSR keys. Sometimes a 

ri programmer will want to move the cursor under program con- 
trol. That's why you see all the {LEFT}'s, {HOME}'s, and 
{BLU}'s in our programs. The only way the computer can tell 

/ ( the difference between direct and programmed cursor control 
is the quote mode. 

^ Once you press the quote (the double quote, SHlFT-2), 

, ] you are in the quote mode. If you type something and then try 
to change it by moving the cursor left, you'll only get a bunch 

^ of reverse-video lines. These are the symbols for cursor left. 

I [ The only editing key that isn't programmable is the DEL key; 
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you can still use DEL to bacls up and edit the line. Once you 
type another quote, you are out of quote mode. 

You also go into quote mode when you INSerT spaces 
into a line. In any case, the easiest way to get out of quote 
mode is to just press RETURN. You'll then be out of quote 
mode and you can cursor up to the mist5^ed line and fix it. 

Use the following table when entering cursor and color 
control keys: 



WhenYbu 
Read: 

{CLR} 
{HOME} 

{UP! 

{DOWN} 

{LEFT} 

{RIGHT} 

{RVS} 

{OFF} 

{BLK} 

{WHT} 

{RED} 

{CYN} 

{PUR} 

{CRN} 

{BLU} 

{YEL} 



See: 



SHIFT 



aRiHOME 



SHIFT 



CLR/HOME j |g| 

t crsrI ] Q 



SHIFT 



■•-CRSR-»| 



♦-CRSR— 



CTRL 



CTRL 



CTRL 



CTRL 



CTRL 



CTRL 



CTRL 



CTRL 



CTRL 



CTRL 
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■ 

■ 

m 
m 

m 
□ 

m 



WhenYbu 
Read: 

{ Fl } 

{ F2 } 

{ F3 } 

{ W 1 

{ F5 } 

{ F6 } 

{ F7 } 

{ F8 } 



Press: 

IcommodoreI I 1 



See: 



I COMMODORE 
I COMMODORE 



COMMODORE 



COMMODORE 



commodore] |T] m 
com modore] |T] n 
commodore] [s] 55 



fl 



1 shift] 








[shift] 






LjlJ 


[shifF 


f5 




f7 


[shift] 
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The Automatic Proofreader 

Charles Brannon 



"The Automatic Proofreader" will help you type in program 
listings without tj^ing mistakes. It is a short error-checldng 
program that hides itself in memory. When activated, it lets 
you know immediately after typing a line from a program list- 
ing if you have made a mistake. Please read these instructions 
carefully before typing any programs in this book. 

Preparing the Proofreader 

1. Using the listing below, type in the Proofreader. Be 
very careful when entering the DATA statements — don't type 
an 1 instead of a 1, an O instead of a 0, extra commas, and so 
on. 

2. Save the Proofreader on tape or disk at least twice 
before running it for the first time. This is very important be- 
cause the Proofreader erases part of itself when you first tj^e 
RUN. 

3. After the Proofreader is saved, type RUN. It will check 
itself for typing errors in the DATA statements and warn you if 
there's a mistake. Correct any errors and save the corrected 
version. Keep a copy in a safe place — you'll need it again and 
again, every time you enter a program from this book, COM- 
PUTEI's Gazette, or COMPUTE! magazine. 

4. When a correct version of the Proofreader is run, it ac- 
tivates itself. You are now ready to enter a program listing. If 
you press RUN/STOP-RESTORE, the Proofreader is disabled. 
To reactivate it, just type the command SYS 886 and press 
RETURN. 

Using the Proofreader 

All listings in this book have a checksum number appended to 
the end of each line. An example is ":rem 123". Don't enter this 
statement when typing in a program. It is just for your infor- 
mation. The rem makes the number harmless if someone does 
type it in. It will, however, use up memory if you enter it, and 
it will confuse the Proofreader, even if you entered the rest of 
the line correctly. 
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When you type in a line from a program listing and press 
RETURN, the Proofreader displays a number at the top of 
your screen. This checksum number must match the checksum 
number in the printed listing. If it doesn't, it means you typed 
the line differently than the way it is listed. Immediately re- 
check your typing. Remember, don't tj^e the rem statement 
with the checksum number; it is published only so you can 
check it against the number which appears on your screen. 

The Proofreader is not picky with spaces. It will not no- 
tice extra spaces or missing ones. This is for your convenience, 
since spacing is generally not important. But occasionally 
proper spacing is important, so be extra careful with spaces, 
since the Proofreader will catch practically everything else that 
can go wrong. 

There's another thing to watch out for: If you enter the 
line by using abbreviations for commands, the checksum vidll 
not match up. But there is a way to make the Proofreader 
check it. After entering the line, LIST it. This eliminates the 
abbreviations. Then move the cursor up to the line and press 
RETURN. It should now match the checksum. You can check 
whole groups of lines this way. 

Special Tape SAVE Instructions 

When you're done typing a listing, you must disable the 
Proofreader before saving the program on tape. Disable the 
Proofreader by pressing RUN/STOP-RESTORE (hold down 
the RUN/STOP key and sharply hit the RESTORE key). This 
procedure is not necessary for disk, but you must disable the 
Proofreader this way before a tape SAVE. 

A SAVE to tape erases the Proofreader from memory, so 
you'll have to load and run it again if you want to type an- 
other listing. A SAVE to disk does not erase the Proofreader. 

Hidden Perik 

The Proofreader's home in the 64 is not a very safe haven. 
Since the cassette buffer is wiped out during tape operations, 
you need to disable the Proofreader with RUN/STOP-RE- 
STORE before you save your program. This applies only to 
tape use. Disk users have nothing to worry about. 

Not so for 64 owners with tape drives. What if you type 
in a program in several sittings? The next day, you come to 
your computer, load and run the Proofreader, then try to load 
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the partially completed program so you can add to it. But since 
the Proofreader is trying to hide in the cassette buffer, it's 
wiped out! 

What you need is a way to load the Proofreader after 
you've loaded the partial program. The problem is, a tape 
LOAD to the buffer destroys what it's supposed to load. 

After you've t5^ed in and run the Proofreader, enter the 
following lines in direct mode (without line numbers) exactly 
as shown: 

A$= " PROOFREADER . T " : B$= " { 10 SPACES } " : F0RX=1T04 : A$=A 
$+B$ :NEXTX 

FORX=886TO1018:A$=A$+CHR$(PEEK(X) ) :NEXTX 
OPENl , 1 , 1 , A$ : CLOSEl 

After you enter the last line, you will be asked to press 
record and play on your cassette recorder. Put this program at 
the beginning of a new tape. This gives you a new way to load 
the Proofreader. Anytime you want to bring the Proofreader 
into memory without disturbing anything else, put the cassette 
in the tape drive, rewind, and enter: 

OPENl: CLOSEl 

You can now start the Proofreader by typing SYS 886. To 
test this, PRINT PEEK (886) should return the number 173. If 
it does not, repeat the steps above, making sure that A$ 
("PROOFREADER.T") contains 13 characters and that B$ con- 
tains 10 spaces. 

The Proofreader will load itself into the cassette buffer 
whenever you type OPENl:CLOSEl and PROOFREADER.T is 
the next program on your tape. It does not disturb the con- 
tents of BASIC memory. 

Replace Original Proofreader 

If you typed in the original version of the Proofreader from 
the October 1983 issue of COMPUTEI's Gazette, you should re- 
place it with the improved version below. 

Automatic Proofreader 

100 PRINT" {CLR} PLEASE WAIT. .. ":FORI=886TO1018: READ 
' ~ A:CK=CK+A:POKEI,A!NEXT : rem 86 

110 IF CK017539 THEN PRINT" {DOWN} YOU MADE AN ERRO 
R" I PRINT "IN DATA STATEMENTS .": END :rem 115 

I ! 120 SYS886:PRINT"{CLR}{2 DOWN} PROOFREADER ACTIVATE 

D.":NEW :rem 24 
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DATA 


173 .036 .003 .201 .150.208 


: rem 


38 


892 


DATA 


001 .096 . 141 . 151 .003 . 173 


: rem 


36 


898 


DATA 


037.003.141.152.003.169 


; rem 


45 


904 


DATA 


150 . 141 . 036 .003, 169 , 003 


: rem 


30 


910 


DATA 


141,037,003,169,000,133 


:rem 


26 


916 


DATA 


254 , 096 , 032 , 087 , 241 , 133 


:rem 


50 


922 


DATA 


251,134,252,132,253,008 


:rem 


36 


928 


DATA 


201,013,240,017,201,032 


: rem 


22 


934 


DATA 


240,005,024,101,254,133 


: rem 


27 


940 


DATA 


254 , 165 , 251 , 166 , 252 , 164 


: rem 


51 


946 


DATA 


253,040,096,169,013,032 


:rem 


47 


952 


DATA 


210,255,165,214,141,251 


t rem 


38 


958 


DATA 


003,206,251,003,169,000 


: rem 


34 


964 


DATA 


133,216,169,019,032,210 


: rem 


43 


970 


DATA 


255,169,018,032,210,255 


:rem 


47 


976 


DATA 


169,058,032,210,255,166 


: rem 


58 


982 


DATA 


254,169,000,133,254,172 


:rem 


48 


988 


DATA 


151,003,192,087,208,006 


: rem 


52 


994 


DATA 


032,205,189,076,235,003 


: rem 


52 


1000 DATA 032,205,221,169,032,032 


:rem 


66 


1006 DATA 210,255,032,210,255,173 


:rem 


75 


1012 DATA 251,003,133,214,076,173 


: rem 


75 


1018 DATA 003 


:rem 


119 
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Using the Machine 
Language Editor: MLX 

Charles Brannon 

Remember the last time you typed in the BASIC loader for a 
long machine language program? You typed in hundreds of 
numbers and commas. Even then, you couldn't be sure if you 
typed it in right. So you went back, proofread, tried to run the 
program, crashed, went back and proofread again, corrected a 
few typing errors, ran again, crashed again, rechecked your 
typing. . . . Frustrating, wasn't it? 

Until now, though, that has been the best way to get ma- 
chine language into your computer. Unless you happen to 
have an assembler and are willing to tangle with machine lan- 
guage on the assembly level, it is much easier to enter a 
BASIC program that reads DATA statements and POKEs the 
numbers into memory. 

Some of these "BASIC loaders" use a checksum to see if 
you've typed the numbers correctly. The simplest checksum is 
just the sum of all the numbers in the DATA statements. If 
you make an error, your checksum does not match up with 
the total. Some programmers make your task easier by includ- 
ing checksums every few lines, so you can locate your errors 
more easily. 

Now, MLX comes to the rescue. MLX is a great way to en- 
ter all those long machine language programs with a mini- 
mum of fuss. MLX lets you enter the numbers from a special 
list that looks similar to DATA statements. It checks your typ- 
ing on a line-by-line basis. It won't let you enter illegal charac- 
ters when you should be typing numbers. It won't let you 
enter numbers greater than 255 (forbidden in ML). It will pre- 
vent you from entering the numbers on the wrong line. In 
short, MLX makes proofreadiijg obsolete. 

Tape or Disk Copies 

In addition, MLX generates a ready-to-use copy of your ma- 
chine language program on tape or disk. You can then use the 
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LOAD command to read the program into the computer, as 
with any other program. Specifically, you enter: 

LOAD "program name",8,l(for disk) 

or 

LOAD "program name" ,\,\(iot tape) 

To start the program, you need to enter a SYS command that 
transfers control from BASIC to your machine language pro- 
gram. The starting SYS is always listed in the article which 
presents the machine language program in MLX format. 

Using MLX 

Type in and save MLX (you'll want to use it in the future). 
When you're ready to type in the machine language program, 
run MLX. MLX asks you for two numbers: the starting address 
and the ending address. These numbers are given in the article 
accompan5ang the ML program you're typing. For example, 
the addresses for "Screen-80" should be 49152 and 52811 
respectively. 

You'll see a prompt. The prompt is the current line you 
are entering from the MLX-format listing. It increases by six 
each time you enter a line. That's because each line has seven 
numbers — six actual data numbers plus a checksum number. 
The checksum verifies that you typed the previous six num- 
bers correctly. If you enter any of the six numbers wrong, or 
enter the checksum wrong, the 64 sounds a buzzer and 
prompts you to reenter the line. If you enter the line correctly, 
a bell tone sounds and you continue to the next line. 

A Special Editor 

You are not using the normal 64 BASIC editor with MLX. For 
example, it will accept only numbers as input. If you make a 
typing error, press the INST/DEL key; the entire number is 
deleted. You can press it as many times as necessary, back to 
the start of the line. If you enter three-digit numbers as listed, 
the computer automatically prints the comma and goes on to 
accept the next number. If you enter less than three digits, you 
can press either the space bar or RETURN key to advance to 
the next number. The checksum automatically appears in re- 
verse video for emphasis. 

To make it even easier to enter these numbers, MLX re- 
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1 defines part of the keyboard as a r\umeric keypad (lines 
581-584). 



U I O 7 8 9 



©CD Qbeco.eQQ Q Q 



When testing it, I've found MLX to be an extremely easy 
way to enter long listings. With the audio cues provided, you 
don't even have to look at the screen if you're a touch-typist. 

Done at Last! 

When you get through typing, assuming you type your ma- 
chine language program all in one session, you can then save 
the completed and bug-free program to tape or disk. Follow 
the instructions displayed on the screen. If you get any error 
messages while saving, you probably have a bad disk, or the 
disk is full, or you made a typo when entering the MLX pro- 
gram. (Sorry, MLX can't check itself!) 

Command Control 

You don't have to enter the whole ML program in one sitting. 
MLX lets you enter as much as you want, save it, and then re- 
load the file from tape or disk later. MLX recognizes these 
commands: 

SHIFT'S: Save 
SHIFT-L: Load 
SHIFT-N: New Address 
SHIFT-D: Display 

Hold down SHIFT while you press the appropriate key. 
MLX jumps out of the line you've been typing, so I recom- 
mend you do it at a prompt. Use the Save command to store 
I \ what you've been working on. It will save on tape or disk as if 
you've finished, but the tape or disk won't work, of course, 
until you finish typing. Remember what address you stopped 
on. The next time you run MLX, answer all the prompts as 
you did before, then insert the disk or tape containing the 
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stored file. When you get the entry prompt, press SHIFT-L to 
reload the partly completed file into memory. Then use the 
New Address command (SHIFT-N) to resume typing. 

New Address and Display 

After you press SHlFT-N, enter the address where you pre- 
viously stopped. The prompt will change, and you can then 
continue typing. Always enter a New Address that matches up 
with one of the line numbers in the special listing, or else the 
checksums won't match up. You can use the Display com- 
mand to display a section of your typing. After you press 
SHIFT-D, enter two addresses within the line number range of 
the listing. You can abort the listing by pressing any key. 

Tricky Stuff 

The special commands may seem a little confusing, but as you 
work with MLX, they will become valuable. For example, what 
if you forgot where you stopped typing? Use the Display com- 
mand to scan memory from the beginning to the end of the 
program. When you reach the end of your typing, the lines 
will contain a random pattern of numbers, quite different from 
what should be there. When you see the end of your t5^ing, 
press any key to stop the listing. Use the New Address com- 
mand to continue typing from the proper location. 

You can use the Save and Load commands to make copies 
of the complete machine language program. Use the Load 
command to reload the tape or disk, then insert a new tape or 
disk and use the Save command to create a new copy. When 
resaving on disk, it is best to use a different filename each 
time you save. For example, I like to number my work and use 
filenames such as ASTROl, ASTR02, ASTROS, and so on. 

One quirk about tapes made with the MLX Save com- 
mand: when you load them, the message FOUND program 
may appear twice. The tape will load just fine, however. 

I think you'll find MLX to be a true labor-saving program. 
Since it has been tested by entering actual programs, you can 
count on it as an aid for generating bug-free machine lan- 
guage. Be sure to save MLX; it will be used for future applica- 
tions in COMPUTE! books, COMPUTE! magazine, and 
COMPUTE'S Gazette. 
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Machine Language Editor: MLX 

For mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C. 
10 REM LINES CHANGED PROM MLX VERSION 2.00 ARE 750 
,765,770 AND 860 : rem 50 

20 REM LINE CHANGED FROM MLX VERSION 2.01 IS 300 

:rein 147 

100 PRI NT " { CLR 1 i 63 " ; CHR$ ( 142 ) ; CHR$ ( 8 ) ; : POKES 3281,1 
:POKE53280,1 : rem 67 

101 POKE 788,52 :REM DISABLE RUN/STOP srem 119 
110 PRINT" {RVS}{ 39 SPACES}"; :rem 176 
120 PRINT" {RVS} {14 SPACES} {RIGHT} {OPP}|*if{RVS) 

{RIGHT} {RIGHT} {2 SPACES }i*§ {OFF }g*i£TRVS}£ 

{RVS} {14 SPACES}"; :rem 250 

130 PRINT "{RVS} {14 SPACES} {RIGHT} gG§{ RIGHT} 

{2 RIGHT} {0PP}£{RVS}£g*3{0FF}g*I{RVS} 

{14 SPACES}"; srem 35 

140 PRINT" {RVS} {41 SPACES}" :rem 120 

200 PRINT" { 2 D0V4N}{PUR}{BLK} MACHINE LANGUAGE EDIT 

OR VERSION 2. 02 {5 DOWN}" :rem 238 

210 PRINT"g5l{2 UP}STARTING ADDRESS?{8 SPACES} 

{9 LEFT}"; srem 143 

215 INPUTS sF=l-FsC$=CHR$(31+119*F) srem 166 

220 IFS<256OR(S>40960ANDS<49152)ORS>53247THENGOSUB 

3000SGOTO210 srem 235 

225 PRINT I PRINT SPRINT srem 180 

230 PRINT"i53{2 UP}EN0IN6 ADDRESS?{8 SPACES} 

{9 LEFT}"; sINPUTE8P=l-PsC$=CHR$(31+119*P) 

srem 20 

240 IFE< 2 560R ( E> 40960ANDE< 491 5 2 ) ORE> 53247THENGOSUB 

3000SGOTO230 srem 183 

250 IFE<STHENPRINTC$;"{RVS}ENDING < START 

{2 SPACES }"sGOSUB1000sGOTO 230 srem 176 

260 PRINT SPRINT SPRINT I rem 179 

300 PRINT"{CLR}";CHR$(14) sAD=S srem 56 

310 A=l sPRINTRIGHT? ( "0000"+MID$ ( STR$ ( AD) , 2 ) , 5 ) ; " s " 

; srem 33 

315 F0RJ=AT06 : rem 33 

320 GOSUB570 5lFN=-lTHENJ=J+NsGOTO320 srem 228 

390 IPN=-211THEN 710 irem 62 

400 IFN=-204THEN 790 trem 64 

410 IFN=-206THENPRINTs INPUT" {DOWN }ENTER NEW ADDRES 

S";ZZ srem 44 

415 IFN=-206THENIFZZ<SORZZ>ETHENPRINT"{RVS}OUT OF 

{ SPACE} RANGE ":GOSUB1000sGOTO410 srem 225 

417 IPN=-206THENAD=ZZsPRINTsGOTO310 :rem 238 

420 IF No-196 THEN 480 srem 133 

430 PRINTS INPUT"DISPIjAYsFROM";Fs PRINT, "TO"; sINPUTT 

srem 234 
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440 IFF<SORF>EORT<SORT>ETHENPRINT"AT LEAST";S;" 

{left}, not more THAN";E:GOTO430 :rem 159 

450 F0RI=FT0TSTEP6 :PRINT!PRINTRIGHT$ ( "0000"+MlD$ ( S 
TR$(I),2),5);":"; :rem 30 

451 PORK=0TO5:N=PEEK(I+K) :PRIIITRIGHT$ ( "00"+MID$ ( ST 
R$(N),2),3);","; :rem 66 

460 GETA$:IFA$>""THENPRINTs PRINT :GOTO310 :rem 25 
470 NEXTK:PRINTCHR$(20); :NEXTI : PRINT: PRINT :GOTO310 

:rein 50 

480 IFN<0 THEN PRINT :GOTO310 J rem 168 

490 A(J)=N:NEXTJ :rem 199 

500 CKSUM=AD-INT(AD/256)*256 :F0RI=1T06:CKSUM=(CKSU 
M+A(I))AND255:NEXT :reni 200 

510 PRINTCHR$ ( 18) ; :GOSUB570 :PRINTCHR$ ( 146) ; t rem 94 

511 IFN=-1THENA=6:G0T0315 :rem 254 
515 PRINTCHR$(20) :IFN=CKSUMTHEN530 :rem 122 
520 PRINT: PRINT "LINE ENTERED WRONG : RE-ENTER" :PRI 

NTsGOSUB1000:GOTO3'l0 :rem 176 

530 GOSUB2000 :rem 218 

540 FORI=lT06:POKEAD+I-l,A(I) :NEXT:POKE54272,0 :POK 

E54273,0 :rem ^27 

550 AD=AD+6:IF AD<E THEN 310 :rein 212 

560 GOTO 710 :reni 108 

570 N=0:Z=0 :rem 88 

580 PRINT "g£i"; :rem 81 

581 GETA$:IFA$=""THEN581 :rem 95 

582 AV=-(A$="M" )-2* (A$=" , " )-3* (A$=" . " )-4* (A$=" J" )- 
5*(A$="K")-6*(A$="L") :rem 41 

583 AV=AV-7* (A$="U" )-8* (A$="I " )-9* (A$="0" ) :IFA$="H 
"THENA$="0" :rem 134 

584 IFAV>0THENA$=CHR$(48+AV) :rem 134 

585 PRINTCHR$ ( 20) ; : A=ASC ( A$ ) : IFA=130RA=440RA=32THE 
N670 :rem 229 

590 IFA>128THENN=-A: RETURN :reni 137 

600 IFAO20 THEN 630 :rein 10 

610 GOSUB690 : IFI=1ANDT=44THENN=-1 : PRINT" {OFF } 

{LEFT} {LEFT}"; :GOTO690 : rem 62 

620 GOTO570 :rem 109 

630 IFA<48ORA>57THEN580 :rem 105 

640 PRINTA$; :N=N*10+A-48 :rem 106 

650 IFN>255 THEN A=20 :GOSUB1000 :GOTO600 :rem 229 
660 Z=Z+1 :IFZ<3THEN580 :rem 71 

670 IFZ=0THENGOSUB1000:GOTO570 :rem 114 

680 PRINT","; :RETURN : rem 240 

690 S%=PEEK(209)+256*PEEK(210)+PEEK(211) :rem 149 

691 F0RI=1T03:T=PEEK(S%-I) :rem 67 
695 IFT<>44ANDT<>58THENP0KES%-I,32:NEXT :rem 205 
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700 PRINTLEPT$("{3 LEFT} I-l) ;: RETURN : rem 7 

710 PRINT" {CLR}{RVS}*** SAVE ***{3 DOWN}" :rem 236 
715 PRINT" {2 DOWN} (PRESS {RVS} RETURN {OFF} ALONE TO 
CANCEL SAVE) {DOWN}" : rem 106 

720 F$="":INPUT"{DOWN} FILENAME " ;F$ : I FF$=" "THENPRI 

NT:PRINT:GOTO310 :rem 71 

730 PRINT: PRINT" {2 DOWN} {RVS }T{ OFF} APE OR {RVS}D 

{0FF}ISK: (T/D)" : rem 228 

740 GETA$:IFA$<>"T"ANDA$<>"D"THEN740 :rem 36 

750 DV=l-7* (A$="D" ) :IFDV=8THENF$="0: "+F$ :0PEN15 ,8, 

15, "S"+F$:CL0SE15 trem 212 

760 T$=P$ :ZK=PEEK( 53 )+256*PEEK( 54) -LEN(T$ ) :POKE782 

,ZK/256 :rem 3 

762 POKE781,ZK-PEEK(782)*256:POKE780,LEN(T$) ISYS65 
469 trem 109 

763 POKE780,liPOKE781,DV:POKE782,l:SyS65466:rem 69 

765 K=S:POKE254,K/256:POKE253,K-PEEK(254)*256:POKE 
780,253 :rem 17 

766 K=E+1 : POKE782 , K/2 56 : POKE781 , K-PEEK( 782 ) * 2 56 : SY 
S65496 :rem 235 

770 IF(PEEK(783)AND1)OR(191ANDST)THEN780 trem 111 
775 PRINT" {DOWN }DONE. {DOWN}" :GOTO310 trem 113 

780 PRINT" {DOWN} ERROR ON SAVE. {2 SPACES }TRY AGAIN. 
":IFDV=1THEN720 trem 171 

781 OPEN15,8,15:INPUT#15,El$,E2$:PRINTEl$;E2$ tCLOS 
E15:GOTO720 trem 103 

790 PRINT"{CLR}{RVS}*** LOAD ***{2 DOWN}" trem 212 
795 PRINT" {2 DOWN} (PRESS { RVS } RETURN {OFF} ALONE TO 
CANCEL LOAD)" :rem 82 

800 F$="":INPUT"{2 DOWN} FILENAME "; F$ :IFF$=" "THENP 

RINT:GOTO310 trem 144 

810 PRINT: PRINT" {2 DOWN} {RVS }T{ OFF} APE OR {RVS}D 

{0FF}ISK: (T/D)" trem 227 

820 GETA$:IFA$<>"T"ANDA$<>"D"THEN820 : rem 34 

830 DV=1-7*(A$="D"):IFDV=8THENF$="0:"+F$ trem 157 

840 T$=P$:ZK=PEEK(53)+256*PEEK(54)-LEN(T$) tPOKE782 
,ZK/256 :rem 2 

841 POKE781,ZK-PEEK(782)*256:POKE780,LEN(T$) :SYS65 
469 :rem 107 

845 POKE780,1 :POKE781,DV:POKE782,l:SYS65466:rem 70 
850 POKE780,0:SYS65493 trem 11 

860 IF(PEEK(783)AND1)OR(191ANDST)THEN870 trem 111 
865 PRINT" {DOWN }DONE. ":GOTO310 :rem 96 

870 PRINT" {DOWN} ERROR ON LOAD. {2 SPACES }TBy AGAIN. 
{DOWN}":IFDV=1THEN800 trem 172 



D Appendix 



880 OPENl 5,8,15:1 tIPUT# 15,E1$,E2$: PRINTEl $ ; E2 $ : CLOS 



1001 POKE54296 , 15 : POKE54277 , 45 :POKE54278 , 165 

I rem 207 

1002 POKE54276,33:POKE 54273 ,6 :POKE54272 , 5 :rem 42 

1003 FORT=1TO200:NEXT:POKE54276,32:POKE54273,0:POK 



2001 POKE54296 , 15 :POKE54277 ,0 :POKE54278 , 247 

:rein 152 

2002 POKE 54276, 17:POKE54273,40tPOKE54272,0trein 86 

2003 FORT=1TO100:NEXT:POKE54276,16:RETURN :rein 57 
3000 PRINTC$;"{RVS}NOT ZERO PAGE OR ROM" tGOTO1000 



E15 :GOTO800 
1000 REM BUZZER 



trem 102 
:rem 135 



E54272,0: RETURN 
2000 REM BELIi SOUND 



:rein 202 
:rem 78 



trem 89 
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ADSR envelope 158-59, 177 
limitations of 168 
table 159 

amplitude (sound) 153, 156, 168 

AND, logical 165 

Apple computer 226 

arrays 13-14 
three-dimensional 14-15 

ASCn codes 103 

Atari computer 226 

Atari graphics commands 226-32 

attack (sound) 157-59 

attention span 119 

"Autoload" program v, 250, 269-73 

"Automatic Proofreader, The" program 
299-302 

background color 43 

"BASIC Portion of Hi-Res Graphics Edi- 
tor" program 205-6 

BASIC warm start vector 269-70 

"Blast-off" program 169, 174 

boot program 269 

border color 43 

changing disk name 279 

character modes 43 

characters, oversized 69-74 

children, grade-school 111 

CLOSE statement 71 

CMD statement 71 

collision, sprite 207, 214-16 

colon 23 

"Colorfill" program 243-44, 245 
color memory 44 

Commodore 64 Programmer's Reference 

Guide 44, 169, 216 
Commodore User's Guide 121 
"Connect the Dots" program 118-26 
control register, SID 163-64 
"Crunch" program v, 274-76 
cursor 43 

"Custom Character Loader" program 68 

"Custom-80" program 46-48, 60-68 

DATA statement 122, 295-96 

debugging 9 

decay (sound) 157-59 

definition cluster (arrays) 13-14 

delay loop 167 

DIM statement 13 

direct mode 12 

disk directory 278-81 

"Disk Surgeon" program 278-88 



DOS wedge 256 
duty cycle 155-56 
education 109-50 
80-column screen 41-48 
"Family Tree" program 82-92 
1541 disk drive 256 
files, program 4 
files, sequential 4 

frequency (sound) 153, 156, 166-67 

gate bit 164 

gate (sound) 158-59 

GOSUB statement 76 

GOTO statement 9, 24 

graphics 153-245 

high-resolution 44, 216-18, 226-32 

quarter-square 69-70 
graphics commands. Atari 226-32 
graphics screen 195 
handicapped computer users 249-56 
high-resolution graphics 44, 216-18, 

226-32 

"HiSprite" program v, 207-25 

control variables 212-13 

hi-res and 216-18 

interrupt mode 218-19 

link to BASIC 220 

machine language and 219-20 

subroutine addresses 213 
"HiSprite Demo" program 209-10 
hue 230 

illegal variable names, using 20-23 
INPUT statement 24 
integer variables 12-13 
interrupts 44, 218-19 
JEP. See Joystick enhanced programming 
"JEProof" program 254, 263-64 
joystick 77, 177, 194, 249-56 
"Joystick Enhanced Programming" pro- 
gram 249-63 
menu 250-53 

machine language and 255-56 
keywords, BASIC 20-23 
"Laser" program 169, 175 
LET statement 24 
listings 20-25 

indented 22-23 
Logo computer language 131 
loops 6 
luminance 230 

"Machine Language for Hi-Res Graphics 
Editor" program 196-204 



"Machine Language Saver" program v, 

1 289-91 

I "MLX" program 41-42, 303-310 

"Moving Message" program 101-7 

music, programming 166-68 
I "Mystery at Marple Manor" program 
i v-vi, 29-40 

"One-Touch Keywords" program v, 
265-68 
I OPEN statement 71 
I page ejection 4-8 

parsing 138-39 

PILOT computer language 131 

pitch (sound) 153 
! pixel 70 

printer 71 

PRINT* statement 71 
program files 4 
: programming style 3-8 
loops and 6 
"Programming Without the Keyboard" 

program v 
pulse waveform 155, 177 
quarter-square graphics 69-70 
RAM, BASIC 9-16 

program to read 10-16 
raster register 102 
j "Realtime Clock" program 244, 245-46 
registers, SID 162-69 

map 163 
release (sound) 157-59 
REM statement 274 
j "Reversi" program vi, 75-81 
j ring modulation 177 
ring modulation bit 165 
RUN BASIC routine 24-25 
sawtooth waveform 155 
scratching disk files 280-81 
"Screen Headliner" program 69-74 
"Screen-80" program v, 41-59 
I custom character set for 46-47 
DOS wedge and 45-46 
graphics and 44-45 
sound and 45 
using 43-48 
! scrolling 101 

sequential flies 4 
i SID chip V, 155, 158, 161-69, 176 
I SID registers 162-69 
map 163 
Simon's BASIC 256 
sine waves 154 
I "64 Hi-Res Graphics Editor" program 
192-206 
autoloading 193 
printing 195-96 
sprites and 195 



"64 Paintbox" program 226-42 

ICOLOR command 230 

IDRAWTO command 228-29 

!FILL command 231 

IGRAPHIC command 228 

ILOCATE command 227, 230 

IPLOT command 227, 228 

[POSITION command 228 

IQUIT command 231 

ISETCOLOR command 229-30 

ITEXT command 231 
sound 153-93 

theory of 153 
sound effects 168-69 
sound envelope 156-61 

examples 160-61 
Sound Interface Device. See SID 
sound registers 161 
"Sound Sculptor" program 176-91 
sprites 44-45, 131, 195, 207 

collision 207, 214-16 
stack 269 
STEP function 121 
STOP statement 9 
storage 

BASIC program 10-11 

direct mode and 12 

string variables 11-12 

variable 11 
ST reserved variable 4 
subroutines 5, 7 

"Supertank" program vi, 93-100 
sustain (sound) 157-59 
sjmc bit 165 
synchronization 177 
thinking, teaching 131 
TI reserved variable 21, 167 
TI$ reserved variable 21 
TOKENIZE BASIC routine 24-25 
tokens, BASIC 24-25 
triangular waveform 155 
"Tune" program 169, 171-74 
turtle geometry 131 

"Turtle Graphics Interpreter" commands 
BACKGROUNDCOLOR 133 
CLEAN 134 
CLEARSCREEN 134 
DEFINE 135 
ERASEALL 135 
FORWARD 132 
HIDETURTLE 133-34 
HOME 134 
LOAD 135 
NAMES 135 
PENCOLOR 133 
PENDOWN133 
PENDRAW 133 



PENERASE 133 
PENUP 133 
PRINTHEADING 133 
PRINTPOSITION 133 
PRINTPROCEDURE 135 
QUIT 135-36 
RENAME 135 
REPEAT 134 
RIGHT 132-33 
SAVE 135 
SCRATCH 135 
SETHEADING 133 
SETPOSITION 133 
SHOWTURTLE 133-34 
TURTLECOLOR 133 
'Turtle Graphics Interpreter" program 
131-50 

disk and 135-36 

procedures 135-36 



screen crunching 136 

tape and 136-37 

typing in 132 
"Twiddle" program 169-71 
"Underline" program 244, 245 
unscratching disk files 278, 280-81 
user port 256 

"Variable Utility" program 16-19 
variables 11, 12 

checking for type of 12 
vector 269-70 

volume (sound) 153, 156, 168 
waveform 154-56, 177 

pulse 155, 177 

sawtooth 155 

triangular 155 
"Word Match" program 111-17 
"Word Saamble" program 127-30 



u 

Li 
□ 

a 
□ 



a 


Q 


□ 



□ 
n 

□ 

D 



□ 

□ 
O 
C 

n 



Keeping the Tradition 

COMPV^&'i TfKa 500* of Cammocftaw d^cotHthies fhe tro- 
difit^n or lis besNselfng pr^$c$$$c^$ in ^esdn^ing a ^id^ 
KytQ>pg cofleclicm of progroms ond articles exclusively for 
fhe Cornrnodore 6i. Progrora oT me HjgiiM' quality and art^^ 
clei ttwt cisorly ilustrare ccih s«T'pie oiyi ccfrples pnogrgm- 
ming techniques provide sonr^ihinp fof e^^ry 64 ujsf 

Altfwjgd many of th& pfogramj ond articles were orig- 
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which teach ma^h and bnguoge sitilS ot fhe same tii"n#. ^ 
" ' 'Tyrtle Sraphcs Inter pT9'er; - .y, iS^celeir htroductbn to ^ O 
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a computer. 
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♦ Arcode OTiO odvenfure games. \*4"jch turri you into a tank 
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• Pdhittos." whch fums yojr tA into an .^^tari'lRe graph- 
ici ccfT^tter. 

• Articles oe'aiing effctert pi'og.'ammirig ityle, variat:le use, 
and easif|' read programs. 

These ore the dest from COMPUTF! Putaications. Vbu'll tind 
every program and article usaify'.. enteftoinfiQi. a infom>atiue. 
And oil ore in fhe trodKlcn you've come to ejtpsct ttorri a 
COMPUTEI book, ^if won't be disappointed. 
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